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Preface 



This publication is designed to supplement the program listings and 
make the information in the listing easier to access • 

New techniques are used to help you understand the program and to 
enable you to refer quickly to flow charts or listings for details 
on the implementation. The publication relies on method of operation 
diagrams that show how the command processor routines operate and that 
provide functional "maps" (via cross-reference through the listings 
and flowcharts. 

This command processor volume contains an introduction to the volume, 
followed by the documentation of the command processors. Each command 
processor is treated as a separate PLM. The General Information section 
contains information common to all the enclosed PLMs. The PLMs are: 

• PROFILE Command Processor • SUBMIT Command Processor 

• PROTECT Command Processor • TERMINAL Command Processor 

• RENAME Command Processor • TIME Command Processor 

• RUN Command Processor • WHEN/END Command Processor 

• SEND Command Processor 

Each of these PLMs is organized in six sections: 

SECTION 1. INTRODUCTION : Relates the PLM to the users of its services, 
provides the operational considerations and physical characteristics 
of the Command Processor, and describes the environment in which the 
Command Processor routines operate. 

SECTION 2. METHOD OF OPERATION : Describes the functions performed 
by the command processor. One of the new techniques used in this 
publication is the focal point of this section - the method of operation 
diagram. These diagrams have been designed to present the internal 
logic of a command processor, without relying on long stretches of 
text. The diagrams provide four kinds of information: 

• Basic function (provided in the picture area) . 

• Modular interfaces (shown in Input to and Output from the module 
that is processing) . 

® Implementation supporting the function (provided as accompanying 
description ) . 
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• Pointers into the listings of flow charts (cross-references 

provided with the text description to lead you to the applicable 
routine writeup, flow chart 9 or label in the listings) • 

The diagrams are packaged at the rear of each PLM so that you can refer 
to them while using some other section of the same PLM. 

SECTION 3. PROGRAM ORGANIZATION ; Contains hierarchy drawings that 
show all the possible calling sequences of the routines that make up 
a command processor. Individual routine descriptions and flowcharts 
(which show the structure of the code) are provided. 

SECTION 4. DIRECTORY ; Contains routine and major data area 
directories. Cross references from a routine or a data area, to the 
appropriate diagram or flowchart enhance the value of this section. 

SECTION 5. DATA AREAS ; Contains descriptions (or mappings) of the 
major data areas and tells which routines create the areas 9 which 
routines use and update the areas, and which routines refer to the 
areas without changing them. 

SECTION 6. DIAGNOSTIC AIDS ; Contains a register summary and a list 
of the messages that the command processor can display to the TSO user. 

Symbols 

The following symbols are used on the method of operation diagrams; 



Heavy black arrow indicates begin reading the diagram here. 
White arrow indicates data transfer from one area to another. 
Black arrow shows flow of logic or passing of control. 




*• Thin black arrow indicates pointer to an item. 

^* Dotted arrow indicates reference to an item. 

Off-page connector leads to a related diagram. 



g 



^ Getting or Freeing main storage. 

JKm fl^ Signifies passing of parameters. 
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Cross Reference 

Each PLM is cross-referenced from one section to another, PLM-to- 
listing cross references are made in the method of operation section. 
Standard references in this volume are as follows: 

MO — Method of operation diagram, 

FC — Flowchart. 

Prerequisite Publications 

To use this volume you should be familiar with the publication IBM 
System/360 Operating Systems Time Sharing Option Command Language 
Reference . Order Number GC28-6732. 



Related Publications 

The TSO Command Processor PLMs are packaged in seven volumes • The 
contents of each volume is listed below. 



Volume 1 GY28-6771 

ACCOUNT 

ACCOUNT ADD 

ACCOUNT CHANGE 

ACCOUNT DELETE 

ACCOUNT LIST 

ACCOUNT BROADCAST 

ACCOUNT SUBROUTINES 



Volume 2 GY28-6772 

ALLOCATE 

CALL 

CANCEL/ STATUS 

DELETE 



Volume 3 GY28-6773 

EDIT 
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RELATED PUBLICATIONS (Cont. ) 



Volume 4 GY28-6774 

EXEC 

FREE 

HELP 

LINK 

LISTALC 

LISTBC 



Volume 5 GY28-6775 

LISTCAT 

LISTDS 

LOADGO 

OPERATOR 

OUTPUT 



Volume 6 GY28-6776 

PROFILE 

PROTECT 

RENAME 

RUN 

SEND 

SUBMIT 

TERMINAL 

TIME 

WHEN/END 

Volume 7 GY28-6777 

TEST 
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General Information 



This section contains information on processing that is common to all 
the enclosed TSO Command Processor PLMs. Individual introductions 
are provided with each separate PLM that is included in this volume • 

Terminal Monitor Program 

The Terminal Monitor Program (TMP) handles the interfaces between a 
terminal user, a command processor, and the Time Sharing Control 
Program. The TMP runs under MVT as a subtask of (is ATTACHed by) the 
TSO LOGON/LOGOFF Scheduler (via the Job Scheduling Subroutine) . 

Before the TMP in turn attaches its own subtasks (ie. f command 
processors) , it: 

• Constructs and initializes the data areas it requires. 

• Loads the TIME command processor. 

• Sets up STAE and STAI exits. 

• Sets up Attention exits. 

• Initializes the input stack with a terminal element. 

• Issues the EXTRACT macro instruction to obtain pointers to both the 
STOP/MODIFY ECB and to the Protected Step Control Block (PSCB) that 
is built by the LOGON/LOGOFF scheduler. 

• Informs the terminal it is "READY" for a command. 

• Obtains the command buffer and validates the command. 

The TMP is then able to attach a command processor as a subtask. 

NOTE: The TEST Command Processor is entered from the TMP via a LINK 

macro instruction allowing it to execute at the same level as the 
TMP. The TIME Command Processor is branched to directly. 

When a command processor completes its processing, control is returned 
to the TMP. For more information on the TMP, please refer to the 
publication , IBM System/360 Operating System: Time Sharing Option 
Terminal Monitor Program and Service Routines Program Logic Manual , Form 
No. GY28-6770. 
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Service Routines 

There are a number of service routines used selectively by the different 
Command Processor packages. These service routines, which are also 
used by the TMP (unless otherwise noted), include: 

• GETLINE, which obtains a line of input from an area defined as its 
source of input. Normally, this area contains input from the 
terminal. 

• PUTLINE, which sends a line of output to the terminal. 

• PUTGET, which sends a line of output to the terminal and waits for 
a line of input as a response. 

• STACK, which establishes the source of input as a terminal; or (if 
not from a terminal) which places lines of input into areas from 
which GETLINE or PUTGET can obtain data. 

• Command Scan, which checks the syntax of designated data to see if 
it is syntactically valid. 

• PARSE (IKJPARS) ( not used by the TMP ), which checks the syntax of 
parameters of TSO commands. In certain cases, PARSE is directed to 
take exits to validity checking routines (provided by the 
processors) . The validity checking routines are designed to 
dynamically assist the parse operation in providing valid input to 
the command or subcommand processor. 

• Dynamic Allocation Interface Routine (IKJDAIR) ( not used by the 
TMP ) , which provides information to the MVT dynamic allocation 
routines. In turn, these routines allocate, free, and concatenate 
data sets that relate to a TSO session. 

These service routines are documented in full in the publication, IBM 
System/360 Operating System; Time Sharing Option Terminal Monitor 
Program and Service Routines PLM , Order Number GY28-6770 . 

Attention Interruptions 

When an attention interrupt has been entered at a terminal, an attention 
interrupt exit routine will receive control. If a command processor 
is interrupted, control will pass to the command processor's attention 
exit routine, if one exists. If not, then control will pass to the 
TMP's attention exit routine. 

TMP ATTENTION EXIT ROUTINE 

The TMP issues the STAX macro during initialization to place an entry 
in an Operating System queue called the Task Attention Interrupt Exit 
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queue. When the attention key is struck during subsequent processing, 
the Operating System attention interruption handling routines check 
the queue, put out the mode message, and pass control to the Attention 
Exit routine at the address provided through the STAX macro (after 
obtaining input from the terminal) . 

The Attention Exit routine issues a GETLINE macro instruction to 
obtain the input following the attention. Action is taken according 
to the type of input found, as follows: 

New command found 

all previous entries are deleted from the input stack. Control 
then returns to the TMP where the old command processor is detached 
and the new one attached. 

Null line 

control returns immediately to the task that was operating when 
the attention key was struck. No ECB is posted. No stack entries 
are deleted. 

? 

a PUTLINE exit is taken to put out second- level messages, if any. 
(If none, a NO INFORMATION AVAILABLE message is issued.) Then, the 
TMP Attention Exit routine looks for a new command or a null line 
as input. Then processing is performed as for the applicable input 
type above. 

Time command 

the TIME command processor receives control. Upon completion, 
TIME returns control to the TMP Attention Exit routine, which then 
looks for either a new command, or a null line, as input. 

TEST command 

Without operands 

the user wants to contine processing, under the control of the 
TEST command processor. Test receives control, to allow the 
user to enter a TEST subcommand (s) . For instance; if GO is 
entered as a subcommand (without operands), processing is 
continued from the point of interruption in the command 
processor that has experienced the Attention interrupt. 

With operands 

the command processor that has experienced the Attention 
interrupt is deleted via the DETACH macro, and a new environ- 
ment is set up by the TEST command processor. 

Command Processor Attention Exit Routine 

None of the command processors in this volume have an Attention Exit 
routine . 
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ABEND Processing 

When the TMP issues the ATTACH macro to activate a command processor 
as a subtask, the STAI operand is included as part of the ATTACH macro. 
The STAI operand specifies the address of the TMP's STAI Exit routine. 
The main purpose of the STAI Exit routine - in the command processor 
environment - is to intercept an ABEND and thereby retain processing 
control. 

When a command processor experiences an ABEND, the TMP f s STAI Exit 
routine gets control to ensure the following: 

• The user is notified that his command processor has experienced an 
ABEND 

• The READY message is issued 

Action is taken according to the type of input found (as a response to 
the READY message) , as follows : 

New command found (except TIME or TEST) 

the command processor that has experienced the ABEND is deleted 
via the DETACH macro, (thereby restricting the ABEND) , and the new 
command processor is activated as a subtask. 

Null line 

control is returned to the point of interruption to allow the ABEND 
to process (a dump will occur if a SYSABEND or a SYSUDUMP has been 
specified on a DD Card) . 

p 

the second level message containing the ABEND code is issued. The 
STAI Exit routine then looks for either a new command, or a null 
line, as input. 

TIME command 

the TIME command processor receives control. Upon completion, 
TIME returns control to STAI, which then looks for either a new 
command, or a null line, as input. 

TEST command 

Without operands 

the user wants to continue processing, under the control of 
the TEST command processor. TEST receives control, to allow 
the user to enter a TEST subcoraraand(s) . For instance? if GO 
is entered as a subcommand (without operands), processing is 
continued from the point of interruption in the command 
processor that has experienced the ABEND. 
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TEST command 

With operands 

the command processor that has experienced the ABEND is 
deleted via the DETACH macro, and a new environment is set 
up by the TEST command processor. 



Error Termination Procedure 

When a command processor terminates with an error condition, the input 
stack is flushed (via the STACK service routine) and the terminal input 
queue is cleared (with the TCLEARQ macro instruction). 

Message Handling 

Each TSO Command Processor has a message CSECT. The address of a 
particular message is provided (by the command processor) to the PUTLINE 
service routine — which writes the message to the terminal. 

A message can be either single or multi-level. Either type may 
require that PUTLINE insert variables (such as names , userids, etc.) 
to complete the message. 
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Part 1: PROFILE Command Processor 
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Section 1. Introduction 



The PROFILE command processor affords a terminal user the opportunity 
to define , or redefine at will, the personal set of options he wishes 
to use at a terminal. Once defined, the options specified are 
transferred to the User Profile Table assigned to the particular user, 
A user profile will remain in effect until its terminal user redefines 
it. The 'Operational Considerations* paragraph in this section lists 
the options available to the terminal user. The options available 
by default are shown in Figure 2-2 at the end of Section 2. 

The PROFILE command is entered at a terminal to begin the process of 
defining a user's characteristics (or profile) to the system. A 
permanent record of a particular user's profile is kept in a User 
Profile Table (UPT) . Once a user profile has been entered successf ully, 
via a PROFILE command with at least one operand, it will remain in 
effect until another PROFILE command from the same user overrides it 
by specifying new operand (s). Any operands not specified on an 
overriding command entry will remain unchanged. A user who enters 
the PROFILE command unaccompanied by any operands will receive the 
following error message (hereafter referred to as the 'COMMAND IGNORED' 
message) : 

'IKJ56670I NO OPERANDS, COMMAND IGNORED' 

Functions 

The PROFILE command processor records a terminal user's options by 
setting bits in the User Profile Table. 

The processing sequence is as follows : 

1. Establishes addressability by receiving the parameters passed as 
input. (See Diagram 2-1.) 

2. If operand(s) are present in the command buffer, IKJEFT82 issues 
the LINK macro to cause control to be passed to PARSE (IKJPARS) . 

3. IKJPARS validates the operand (s) in the command buffer, builds a 
Parameter Control List (PCL) in dynamically acquired storage, 
records the user's options in this PCL, sets up a return code and 
returns to IKJEFT82. If the return code is not zero, 'COMMAND 
SYSTEM ERROR+' is displayed at the terminal via the PUTLINE 
service routine. Upon request, the second-level message, PARSE 
ERROR CODE xxx' , is also displayed. Control is returned to the 
TMP. 
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4. IKJEFT82 is now able to transfer the user's profile information 
from its temporary home in the PCL to a permanent location in the 
User Profile Table (UPT) . Dynamic storage used for the PCL is now 
released. When successful, PROFILE (IKJEFT8 2) sends a return 
code of to the TMP. 

Environment 

The PROFILE command processor is processed in a TSO user's region under 
the region's protection key. The processor itself is loaded into about 
2K of storage. Additional storage, for the TSO service routines used 
by PROFILE, is dynamically acquired by the PARSE routine and later 
freed when PROFILE issues the IKJRLSA macro. 

Physical Characteristics 

The PROFILE command processor is a load module named PROFILE that is 
a member of SYS1.CMDLIB. It has an alias name of 'PROF'. PROFILE 
is about 2K bytes long. 

IKJEFT82 is the entry point name, the control section (CSECT) name, 
and the module name of the main processing program - the PROFILE command 
processor. 

The Terminal Monitor Program (TMP-IKJEFT02) issues the ATTACH macro 
to enable IKJEFT82 to receive control. 

Operational Considerations 

PROFILE uses the TSO PUTLINE (IKJPOTL) service routine to send messages 
to a terminal. The PUTLINE macro generates a LINK macro which enables 
module IKJPUTL to receive control. 

The Putline Parameter Block (IKJPTPB) is pointed to by the parameter 
list that is passed to PUTLINE. 

The four parameters that comprise the input to this command processor 
are known as the Command Processor Parameter List (CPPL) . When PROFILE 
receives control, register 1 contains the address of a CPPL that is 
structured as follows: 

• Word 1 (CPPLCBUF) Points to the command buffer. 

• Word 2 (CPPLUPT) Points to the User Profile Table (UPT). 

• Word 3 (CPPLPSCB) Points to the Protected Step Control Block (PSCB) . 

• Word H (CPPLECT) Points to the Environmental Control Table (ECT) . 
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The PROFILE command consists of the following: 



PROFILE 


Commandname 


CHAR (character) / 
CHAR(BS)/ 

NOCHAR 


Specifies a character delete control character. 
Specifies the backspace as a character delete 
control character. 

Specifies that a character delete control char- 
acter is not defined for this user. 


LINE ( character ) / 
LINE (ATTN)/ 

NOLINE 


Specifies a line delete control character. 

Specifies the ATTN key as a line delete control 

character. 

Specifies that a line delete control character 

is not defined for this user. 


PROMPT/ 
NOPROMPT 


Specifies the user*s desire to be prompted when- 
ever possible. 
Specifies that the user should not be prompted. 


INTERCOM/ 
NO INTERCOM 


Specifies the user's desire to receive messages 
sent to him by other terminal users. 
Specifies that the user does not wish to receive 
messages from other users. 


PAUSE/ 
NOPAUSE 


When the user receives a message that has add- 
itional message levels available, he is to have 
the option of either requesting the next level 
message (by entering a w ? w ) # or of ignoring any 
further message levels (by entering a nullline) . 
Each additional message level can be accessed by 
a separate request ( w ? w ). When the last level 
has been reached, the user will be notified by 
an appropriate message. 

Specifies that the user does not wish to be 
notified (by prompting) that the message he has 
just received has additional messages available 
with it. 


MSGID/ 
NOMSGID 


Specifies that messages sent to this user are to 
include message identifiers. 

Specifies that messages sent to this user are to 
exclude message identifiers. 



NOTE: From each group of operands shown above , only one operand may 
be specified each time a user profile is entered. 
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Section 2. Method of Operation 



This section describes the program logic of the PROFILE command 
processor. The complete program logic of the TMP and the TSO service 
routines used by PROFILE can be found in the Terminal Monitor Program 
and Service Routines Program Logic Manual, GY28-6770. 

PROFILE Command Processing Summary 

The information contained in the Command Processor Parameter List 
(CPPL) is used to initialize pointers which will be used by PROFILE- 
and by its service routines-to access data in storage • (See Diagram 
2-1). 

The ECTNOPD bit switch in the Environmental Control Table (EOT) is 
tested to determine if the command buffer field has any operands . 
If the bit is zero, there are no operands; in this case, the 'COMMAND 
IGNORED* message is sent to the user at his terminal via the facilities 
of the PUTLINE macro, and control is returned to IKJEFT02, the calling 
routine. 

If operands are present in the command buffer, PROFILE builds the 
Parse Parameter List (PPL), puts the address of the PPL in register 
1, and issues the LINK macro to pass control to IKJPARS (PARSE) . 

PARSE issues a Getmain macro for storage in which it builds a 
Parameter Descriptor List(PDL). The User options, specified by the 
particular operands in the command buffer, are validated and then 
recorded by setting switches in the PDL. A pointer to this PDL can 
then be passed back to PROFILE. PARSE then sets up a return code in 
register 15 and returns control to PROFILE. 

If the return code from PARSE is not zero, PROFILE sets up the INVPARM 
message, and issues a PUTLINE macro to deliver it to the user at the 
terminal, before returning control to IKJEFT02. If the return code 
is not zero, PROFILE then checks the pointer to the PDL. If this PDL 
pointer equals zero, PROFILE sets up the 'COMMAND IGNORED' message, 
issues the PUTLINE macro to display it to the user, and returns control 
to IKJEFT02. 

PROFILE can now examine the Parameter Descriptor List. PROFILE uses 
the PDEP mapping structure, which has been declared as an overlay 
DSECT, to refer to the PDL core received from PARSE. Each user 
specified option will be indicated by a value of one(l) or two (2) in 
its respective field in the PDEP overlay of the storage acquired by 
the PARSE routine. (Zero in the field indicates the absence of the 
option) . This temporary record of user options can now be made 
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permanent by setting the appropriate switches in the User Profile Table 
(UPT). 

NOTE: The UPT can be modified by Command Processors and by Service 
Routines, but its storage cannot be freed by them. 

The PDL storage which was acquired dynamically by the PARSE routine 
can now be freed. The IKJRLSA macro, whose expansion generates a 
Freemain macro, is issued by PROFILE and the storage is released. 
Control is now returned to IKJEFT02, the routine that called PROFILE , 
along with a normal return of zero in register 15. 

PARSE Service Routine Processing Summary 

Summary of PARSE processing when used by the PROFILE command processor 
(See Diagram 2-2). 

IKJPARS(PARSE) receives control from IKJEFT82 (the main processing 
program) . PARSE issues a GETMAIN macro for storage in which to build 
a PDL. PARSE now concentrates on the Parameter Control List (PCD 
which consists of a number of Parameter Control Entries (PCE's). There 
is one PCE for each IKJNAME macro specified by PROFILE. (This actually 
amounts to a list of all the keyword operands that may be used with 
the PROFILE command) . PARSE accomplishes the syntax check of the 
operands appearing in the command buffer approximately as follows 
(refer to the TMP Service Routines PLM for a detailed explanation): 

1. Simultaneously scans the PCL and the command buffer looking for 
matches . 

2. If an operand in the command buffer also appears in the PCL, the 
operand is a valid one. 

3. Each valid operand generates an entry in the PDL in the order in 
which the valid operands appear in the PCE's. Thus, the order of 
the PDL reflects the order of the PCL, which in turn reflects the 
order in which the Parameter Control Entries were specified by the 
PARSE macros. 

NOTE: PARSE is a table driven routine according to the type of 

Parameter Control Entry (PCE) found in the Parameter Control 
List (PCL). Each type of PCL is further processed by a 
separate, lower-level routine. These secondary routines: 
check for missing or default parameters; check syntax of 
parameters; check for validity check exits; prompt the 
user in error situations, if required. 

4. PARSE determines if either of the two Validity Checking Routines , 
that have been link edited into the PROFILE load module (as 
in-line subroutines), will be used: 
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A. CHARCHEK ROUTINE - This routine is entered by PARSE whenever the 
user has entered the •CHAR 1 keyword along with a specified 
character (s). A maximum of two characters may be used. Any 
single character is valid except the new line (NL) character. 
The characters # 'BS 1 , specify the backspace character as the 
character delete control character. 

B. LINECHEK ROUTINE - This routine is entered by PARSE whenever 
the user has entered the 'LINE 1 keyword along with a specified 
character or character string. Any single character is valid 
except the new line (NL) character. The character string 
•ATTN', specifies that ATTENTION is to be used as the Line 
Delete control character. 

5. The PDEP data area is an overlay of the PDL whose pointer is 
returned to PROFILE by IKJEFP01 (PARSE) via an answer place 
provided by Profile in the PPL. 

6. PARSE uses register 15 to send PROFILE a return code: 

= SUCCESSFUL 
NON = UNSUCCESSFUL 

Method of Operation Diagrams 

The diagrams illustrate the method of operation-or processing-of the 
PROFILE command processor. The cross reference table in the diagram 
may help find the corresponding blocks on a flowchart 9 or the respective 
sections of code in the program listings. 

Note: The method of operation diagrams appear at the rear of this 
PLM. 

ADDITIONAL FIGURES 

The following figures are referenced on the method of operation 
diagrams : 
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REG 3 



f SEGLIST 



SEGLIST 





t 


Next Message Level 






* Message Segments | 




t 


Message Buffer 




t 


Second Message Level 




* Second Level Segments 




t 


First Segment 




t 


Second Segment 



Input to IKJPUTL from PUTMSGS. 



Figure 2-1. Total Input to IKJPUTL 
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USER'S ENVIRONMENT SWITCHES 

Bit Pos. Switch legend 

Reserved 

1 OFF (0) = NO PROMPTING. 
ON (1) = PROMPTING. 

2 OFF (0) = SUPPRESS MSG Identifiers. 
ON (1) = ALLOW MSG Identifiers. 

3 OFF (0) = Allow communication with other users via SEND command. 
ON (1) = No communication with other users. 

4 OFF (0) = No PROMPTING PAUSE or "? "when in non-interactive mode. 
ON (1) = Prompting Pause or " ? " when in non-interactive mode. 

5 OFF (0) = "ATTN " is not a line delete control character. 
ON (1) = "ATTN " is the line delete control character. 

6 Reserved 

7 Reserved 



INITIAL VALUE OF SETS 
THE DEFAULT OPTIONS. 



Reserved 



Reserved for Installation Use 



Character delete 
control character 



Line delete 
control character 

Reserved byte 



Figure 2-2. User Profile Table (16 bytes long) 
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Section 3. Program Organization 



This section presents the PROFILE corona nd processor w its associated 
routines , and the relationships among them. 

The hierarchy of the routines is shown in Figure 3-1. 



Hierarchy 



IKJEFT82 



IKJPARS 



CHARCHEK 



LINECHEK 



PUTMSGS 




Figure 3-1 • Hierarchy of the PROFILE Command Processor 
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IK JEFT82— PROFILE Control Routine 



Entry Points 


IKJEFT82 


Processing 


Specify subpool 1 as recipient of all dynamically 


Operations 


acquired storage. 




Map PUTLINE's PCL in subpool 1. 




Pick up parameters for use by service routines. 




Test ECT bit for presence of operands in command 




buffer. 




Use PUTLINE to send error messages. 




Use IKJPARS to validate operands. 


Data Areas 


Data Area Defined Used Chanqed 




BSATTN X 




CHARDEL X 




CHARPDE X 




CHARTDEL X 




CODE X X 




CPECB X 




CPPL X 




DELETCAL X 




ECT X 




ERRCODE X 




IGMSG X 




INVPARM X 




MSGS X 




PDEP X 




PDEPTR X 




PPL X X 




PTPB X X 




PTPBPTR X 




PUTLIST X 




PUTLNG X 




PUTPARM X 




RCODE X 




SEGLIST X 




UPT X X 


Routines 


IKJPARS , IKJPUTL 


Used 




Exits 


LINK to IKJPARS, LINK to IKJPUTL, RET to TMP(IKJEFT02) 
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IKJEPT82 — PROFILE Control Routine (Cont.) 



Registers on 
Entry and 
Exits 



On entry, register 1 contains the addr of a CPPL. 

On exit to PARSE, register 1 contains the addr of the 

PPL. 

On exit to PUTLINE: register 3 contains the addr of 

SEGLIST (the message list); while register 1 contains 

the addr of PPL (the first four words are also used as 

the Put line parameter list) • 

On return to TMP, register 15 contains a return code. 
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Chart AA. IKJEFT82. PROFILE Command Processor (1 of 2) 



Cross Reference: Diagram 2-1, 2-2. 



PROFILE 



& 



UPTNPRM = 
for prompt 



UPTNPRM = 1 
for no prompt 




UPTMSGID = 1 
for msgid 



UPTMSGID = 
for no msgid 




UPTPAUS = 1 
for no pause 



-© 
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Chart AB. IKJEFT82. PROFILE Command Processor (2 of 2) 



Cross Reference : Diagram 2-3, 



Nullify line 
delete 




Leave line 
as is 



Yes 


Get 

character 
delete 
character 
















G2 






No 


Leave 
character 
as is 




t ( 






' V 




Set 

character 
delete to 
zero 



STCC: 
Issue macro 
with 
NATTN 




Set 
proper 
UPT bits 
and bytes 



Get 

character 
delete 
character 



Leave 
character 



Set up 
BS - ATTN 



K3 



IKJRLSA: 
Free 
PDL 
core 



jT RETURN to A 
A^ IKJEFT02 J 



STCC: 
Issue 

macro with 
ATTN 
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Section 4. Directory 



This section consists of two directories, each organized alphabetically. 
The first, entitled "Routine Directory" , contains all entry point and 
routine names referenced or used by the PROFILE command processor. 
The second, entitled "Data Area Directory", lists all the data areas 
used by PROFILE. 



Routine Directory 



Entry or 
Routine Name 



Load 
Module 



Control 
Section 



Cross reference 
MO FC 



CHARCHEK 


IKJEFT8 2 


IKJEFT82 


2-2 


AB 


IKJEFT02 


IKJEFT02 


IKJEFT82 


2-1 


AA 


IKJPARS 


IKJPARS 


IKJEFP01 


2-1 


AA 


IKJPUTL 


IKJPTGT 


IKJEFT40 


2-1 


AA 


LINECHEK 


IKJEFT82 


IKJEFT82 


2-2 


AB 


PR0FMSGS 


IKJEFT82 


IKJEFT82 


2-1 


AA 


PUTMSGS 


IKJEFT82 


IKJEFT82 


2-1 


AA 
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Data Area Directory 



Data Area 



MO 



FC 



BSATTN 


6-1 


AB 


CHARBEL 


2-2 


AB 


CHARPDE 


2-3 


AA 


CHARTDEL 


N/A 


AB 


CODEM 


2-4 


AA 


CPECB 


N/A 


AA 


DELETCAL 


N/A 


(See listings) 


ECT 


Mapping 
Macro 
(See listings) 


AA 


ERRCODE 


6-1 


AA 


INVPARM 


6-1 


AA 


MSGS 


6-1 


AA 


BDEP 


2-2 


AA 


PDEPTR 


2-2 


AA 


PPL 


2-2 


AA 


PTPB 


2-4 


AA 


PTPBPTR 


2-1 


AA 


PUTLIST 


N/A 


(See listings) 


PUTLNG 


N/A 


(See listings) 


PUTPARM 


RCODE 


SEGLIST 


2-4 


AA 


UPT 


2-5 


AB 
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Section 5. Data Areas 



This section contains the major data areas used by the PROFILE command 
processor. Each major data area is represented in table format; 
subfields within the major data area have separate entries in the 
table. The size and use of each subfield is included in the table. 
For each major data area, both the creating and the using routines 
are given. 



CHARPDE— PDE from PARSE 

Created by: IKJPARS (PARSE) 

Used by: Used when IKJPARS(PARSE) enters a validity checking routine 
in reponse to the appearance of either the 'LINE" or the 
•CHAR* keyword, and a character (s) . 

Contents: 



Disp 



Field 



Size and Use 



(0) 


CHARPTR 


4 bytes — Points to character (s) specified as 
either the Line Keyword or the CHAR- 
ACTER Keyword. 


4 (4) 


CHARLEN 


2 bytes — Length of character (s) specified in 
CHARPTR. 


6 (6) 


FLGRESV 


2 bytes — Unused. 



PROFILE 25 



ECT— Environmental Control Table 

Created by: The Environmental Control Table (ECT) is built by the TMP 
and stored in a nonshared subpool. 

Used by: Its fields can be modified by a command processor 9 or by a 
service routine, but it cannot be freed by a command 
processor. 

Contents : 



Disp 



Field 



Size and Use 



(0) 


ECTRCDF 


1 byte 


— High- order bit on indicates a CP 
Abend. 


1 (1) 


ECTRTCD 


3 bytes 


— Return code from previous CP or ABEND 
code (if ECTRCDF is ON) . 


4 (4) 


ECTIOWA 


4 bytes 


— Address of I/O work area. 


8 (8) 


ECTMSGF 


1 byte 


— High-order bit on indicates delete 
second level message. 


9 (9) 


ECTSMSG 


3 bytes 


— Address of second level message chain. 


12 (C) 


ECTPCMD 


8 bytes 


— Primary command name. 


20 (14) 


ECTSCMD 


8 bytes 


— Secondary command name. 


28 (1C) 


ECTSWS 


1 byte 


— Switches. 




ECTNOPD 


bit 


— ON=No operands exist in command 
buffer. 




* 


bit 1 


— Reserved. 




ECTATRM 


bit 2 


— ON=CP terminated by TMP detach with 
STAE EQU. 




ECTLOGF 


bit 3 


— ON=L0GON/OFF requested TMP to LOGOFF 
user bits. 




ECTNMAL 


bit 4 


— ON= No user messages to be receiv- 
ed at LOGON. 




ECTNNOT 


bit 5 


— ON= No broadcast notices to be receiv- 
ed at LOGON. 




* 


bit 6 


— Reserved. 




* 


bit 7 


— Reserved. 


29 (ID) 


* 


3 bytes 


— Reserved. 
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PDEP— DSECT of PDL 

Created by: This mapping of the PDL is created by Parse module, 
IKJEFP01. 

Used by: IKJEFT82 — PROFILE COMMAND PROCESSOR. 

Contents : 



Disp 



Field 



Size and Use 



CO) 


STORPTR 


4 bytes 


— Ptr to Parameter Descriptor List 
(PDL) . 


4 (4) 


STORB 


4 bytes 


— Subpool number and PDL size. 


8 (8) 


PRMT 


2 bytes 


— Prompt/No prompt Keyword. 


10 (A) 


MSGID 


2 bytes 


— Message ID/No MSGID keyword. 


12 (C) 

i 


INTERCOM 


2 bytes 


— Intercom/No Intercom keyword. 


14 (E) 


PAUSE 


2 bytes 


— Pause/No Pause keyword. 


16 (10) 


CHART 


2 bytes 


— Character Delete/No Character Delete 
Keyword. 


18 (12) 


LINE 


2 bytes 


— Line Delete/No Line Delete Keyword. 


20 (14) 


CHARID 


4 bytes 


— Ptr to character delete character. 


24 (18) 


CARLEN 


2 bytes 


— Length of character delete character. 


26 (1A) 


* 


2 bytes 


— Unused. 


28 (1C) 


LINEID 


4 bytes 


— Ptr to line delete character. 


32 (20) 


LINLEN 


2 bytes 


— Length of line delete character. 


34 (22) 


* 


2 bytes 


— Unused. 
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PPL — Parse Parameter List (Dual Purpose) 

Created by: IKJEFT82 (PROFILE) • 

Used by: The first four fields are used by PUTLINE. Parse module 
IKJEFP01 uses the complete data area. 

Contents: 



Disp 



Field 



Size and Use 



(0) 


UPTPTR 


4 bytes 


— Ptr to User Profile Table (UPT). 


4 (4) 


ECTPTR 


4 bytes 


-■- Ptr to Environmental Control Table 
(ECT) . 


8 (8) 


ECBPTR 


4 bytes 


— Ptr to Command Processor's (CP) 
Event Control Block (ECB) . 


12 (C) 


PUTPARMP 


4 bytes 


— Ptr to Putline Control List. 


12 (C) 


PCLPTR 


4 bytes 


— Ptr to Parameter Control List. 

(Occupies same field as PUTPARMP) . 


16 (10) 


ANSPTR 


4 bytes 


— Ptr to Parameter Descriptor 
List's (PDL) Pointer. 


20 (14) 


CBUFAD 


4 bytes 


— Ptr to Command Buffer. 


24 (18) 


WORKAP 


4 bytes 


— Ptr to PROFILE'S save area. 
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PTPB — Putline Parameter Block 

Created by: IKJEFT8 2 (PROFILE) . 

Used by: Used by Putline to control its own functions as well as to 
return data to the calling routine. 

Contents : 



Disp 



Field 



Size and Use 



(0) 


* 


8 bytes — Internal Putline usage. 


8 (8) 


PTPBLFN 


4 bytes — Ptr to formatted line returned 

because • OUTPUT=(ADDR, FORMAT ) ■ was 
specified. 



Note: The PTPB is illustrated in Figure 2-1. 
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SEGLIST— Message Segment List 

Created by: IKJEFT8 2 ( PROFILE) • 

Used by: IKJPUTL(PUTLINE) uses SEGLIST to send messages to the 
terminal. 

Contents : 



Disp Field 



Size and Use 



(0) 


LEVEL2P 


4 bytes 


— Contains address of second level 

message list, or X'FFOOOOO' if none. 


4 (4) 


NUMSEG 


4 bytes 


— Number of message segments. 


8 (8) 


SEGMENT 


4 bytes 


— Contains address of First Level 
messa ge . 


12 (C) 


LEVELNP 


4 bytes 


— Pointer to the Next Level of message 
segments . 


16 (10) 


NUMSEG2 


4 bytes 


— Number of message segments at the 
Second level. 


20 (14) 


SEGMENT2 


4 bytes 


— Contains address of EFirst message 
segment. 


24 (18) 


SEGMENT3 


4 bytes 


— Contains address of Second message 
segment. 



Note: SEGMENT2 and SEGMENT3 make up the second level message. 
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UPT— User Profile Table 

Created by: UPT is built by the LOGON/LOGOFF Scheduler from data 
stored in the UADS. 

Used by: Shared by the Terminal Monitor Program (TMP) and LOGON/LOGOFF, 
It can be modified by command processors and by service 
routines , but cannot be freed by them. 

Contents: 



Disp 



Field 



Size and Use 






(0) 


* 


2 bytes — 


Reserved on a word boundary • 


2 


(2) 


UPTUSER 


10 bytes - 


- Reserved for installation use. 


12 


(C) 


UPTSWS 


1 byte — 


Ut>er f s environment switches. 






* 


bit — 


Reserved. 






UPTNPRM 


bit 1 — 


OFF= No prompting. 






UPTMID 


bit 2 — 


OFF= Suppress message identifiers. 






UPTNCOM 


bit 3 — 


OFF= User communication allowed via 
SEND command. 






UPTPAUS 


bit 4 — 


OFF= No prompting pause or ■ ?• when 
in noninter active mode. 






UPTALD 


bit 5 — 


OFF= ATTN is not the line delete 

character. 

0N= ATTN is the line delete character. 






* 


bit 6 — 


Reserved. 






* 


bit 7 — 


Reserved. 


13 


(D) 


UPTCDEL 


1 byte — 


Character delete character. 


14 


(E) 


UPTLDEL 


1 byte — 


Line delete character. 


15 


(F) 


* 


1 byte — 


Reserved. 



NOTE: The UPT is illustrated in Figure 2-2. 
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Section 6. Diagnostic Aids 



This section contains a register summary and a list of PROFILE messages. 

Register Summary 

The PROFILE command processor w and its associated routines , all use 
the following registers in the conventional way: 



Register 



Contents/Use 



1 


Ptr to Parameter list. 


11 


Base Register. 


12 


Base Register for DSECT Addressability of Reentrant code. 


13 


Ptr to current routine's save area. 


14 


Return address. 


15 


Return code. 



Additional register usage is broken down by routines ; 



I K JEFT 8 2 ( PROFILE ) 



Register 



Contents/Use 



Pointer to RCODE if PARSE is unsuccessful. 
Character delete character. 



Line delete character. 
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CHARCHEK 



Register 



Contents/Use 



3 


Pointer to PDE. 


11612 


Restored from PARSE'S save area to establish addressability. 



LINECHEK 



Register 



Contents/Use 



3 


Pointer to PDE. 


11612 


Restored from PARSE'S save area to establish addressability. 



PUTMSGS 



Register 



Contents/Use 



Pointer to the message segment list. 



Register 14 (Return address) is saved here when PUTMSGS is 
entered. 



34 PROFILE 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Messages 

IKJEFT82(PROFILE) uses an overlay CSECT to address the message list 
residing permanently in the PROFILE load module. The message list 
consists of 4 buffers which reside contiguously in the main storage 
assigned to PROFILE at loading time. The overlay CSECT, , PROFMSGS f , 
is used to initialize the four message buffers to the values shown 
in Figure 6-1. The fifth buffer, •CODE', will receive a copy of any 
error return code that PARSE may send to PROFILE. Any such error code 
(of three digits) can then be added to the ERRCODE buffer by PUTLINE, 
before sending the "PARSE ERROR CODE XXX" message to a terminal. 



NOTE: 



The ERRCODE buffer contains a second level message to the message 
in the INVPARM buffer. 



Buffer 
Name 

MSGS 

BSATTN 

INVPARM 

ERRCODE 

CODE 



Buffer Message 
Length Offset 



(in bytes) 






Buffer Contents After Initializing 








42 





IKJ56670I 


NO OPERANDS, COMMAND IGNORED 




50 





IKJ56672I 


BS OR ATTN INVALID FOR THIS TERMINAL 


35 





IKJ56671I 


COMMAND SYSTEM ERROR + 




30 





IKJ56671I 


PARSE ERROR CODE 






8 


26 


b 








2 
BY 


[ — *■ 

rES 

FWD 




* 3 byte field to contain return code from PARSE. 

PUTLINE combines it with the ERRCODE buffer 
to set up the second level message : 
MKJ56671I PARSE ERROR CODE XXX \ 







Figure 6-1. PROFILE Message CSECT (PROFMSGS) 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/ 3 60 Operating System; Program Logic 
Manual Master Index , Order No. GY28-6717. 
For additional information about any 
subject listed below , refer to other 
publications listed for the same subject in 
the Master Index. 



a CP ABEND 

ABEND code 26 

indicator bit 26 
ABEND processing (see introduction to the 

volume) 
additional message levels 

how to ignore 9 

how to reguest 9 
additional register usage by routine 33 
address of I/O work area 26 
alias name 8 
associated routines 

hierarchy 17 

register usage 33 f 34 
ATTACH macro (see terminal monitor program) 
attention handling (see introduction to the 

volume) 
ATTN key as a control character 9,13 



backspace character as a control character 

13 
base register (see register) 
broadcast notices received at LOGON 26 
buffers 

at loading time 35 
message 35 
build PDL 45 
built by the TMP (see environmental control 

table) 



CHAR keyword parameter of the PROFILE 
command 13 

(also see PROFILE command) 
character delete control character 

as an operand of PROFILE 9 

how to specify 9 

illustrated internally 47 
character string 

ATTN as a line delete control 
character 13 

when used as a contrcl character (s) 13 
CHARCHEK routine 

position in the lead module 
hierarchy 17 

when used by PARSE 13 

when entered by PARSE 45,, 47 

in-line subroutine of PROFILE 45 
CHARPDE 

description and use 25 

shown as an illustrated input 47 



charts (see illustrations) 
check return code 

from CHARCHEK 45„47 

from LINECHEK 45,47 

from PARSE 43 

from PROFILE 43 
CODE buffer 35 
COMMAND IGNORED message 

description 35 

when issued 7,11 
command buffer 

contents 7 

address of 43 
command processor 

documented in this volume 

(see volume introduction) 

PROFILE 

environment 8 
functions 7 

operational considerations 8 
physical characteristics 8 
processing summary 11 
command processor parameter list 

built by the TMP 43 

input to PROFILE CP 8,47 
contents 

of PROFILE command processor 3 

of this volume (see vclume introduction) 
control section 

as an overlay CSECT 35 

total ccntained in PROFILE 23 
contrcl character 

how to specify 9 

what may be specified 9 

where ccntained in stcrage 47 
corresponding blocks en flowchart, 

description of 13 
CP (see command processor) 

CPPL (see command processor parameter list) 
cross reference (see cress reference table) 
cross reference table 

in diagram 13,43-47 

in directory 23,24 

CSECT (see ccntrol section) 

current routine's save area location 33 



DAIR 

data areas 

used by IKJEFT82 18 
used by PROFILE 25 
data area directory of all data areas used 

by PRCFILE 24 
default options 7,15 

default parameters assigned ty PARSE 12 
delete seccnd-level message (indicator tit 

in PDL) 26 
delete/no character delete keyword 

(indicator) 27 
delete/nc line delete keyword 
(indicator) 27 
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diagnostic aids 

messages 35 

register summary 33 
diagram 

attempts to illustrate 13 

cross referencing 13 

list of enclosed diagrams 5 

philosophy of (see volume introduction) 
directory 23 

DSECT addressability of reentrant code 
(see reentrant code) 
DSECT of PDL created by PARSE 21 
dynamic storage 

used for the PCL 8 

released by IKJEFT82 
dynamically acquired storage 

by PARSE for TSO service routines 8 

resides in subpool 1 18 



ECB (see event control block) 

ECT (see environmental control table) 

ECTNOPD bit switch 

operands in the command buffer 

indicator 11, 43 
subfield in the ECT 26 
entering a nullline to ignore additional 

message levels 9 
entry in the PDL 

how generated 12 
output to PROFILE 45 
entry point name 

of command processor 8 
of routines used by PROFILE 23 
entry point 18 
environment 8 
environmental control table 
built by the TMP 26 
input to PROFILE 43 
part of the CPPL 8 
modify its fields 26 
ERRCODE buffer contains PARSE 
error code 35 
(see buffers) 
error termination procedures (see volume 

introduction) 
establish addressability 
in CHARCHEK 47 
in LINECHEK 47 
event control block 28,14 
exits 

to CBARCHEK 

contents of registers 34 
via a BALR instruction 45 
to LINECHEK 34 

contents of registers 34 
via a BALR instruction 45 
to PARSE 

contents of register 1 19 
via LINK macro instruction 43 
to PUTLINE 

contents of registers 1 and 3 19 
via PUTLINE macro instruction 43 



FC (abbreviation for flowchart 

or chart) 23 
figures (see illustrations) 5 



first-level message (see message segment 

list) 
formatted line put out by PUTLINE 29,14 
four message buffers 

comprise PROFMSGS CSECT 35 

used by PUTLINE 35 
free PDL via the IKJRLSA macro 43 
FREEMAIN macro 

generated by the IKJRLSA macro 12 

when issued by PROFILE 12,43 
functions cf the PROFILE command 
processor 7 



GETMAIN macro issued by PARSE for PDL 

storage 11,43 
group of operands from which a user profile 

may be defined 9 

hierarchy cf PROFILE CP 17 

if operands are present in the command 
buffer 

(see PROFILE processing) 
if PARSE is unsuccessful (see PROFILE 

processing) 
if PDL is empty (see PROFILE processing) 
IKJEFP01 CSECT in IKJPARS 23 
IKJEFT40 CSECT in IKJPUTL 23 
IKJEFT82 

CSECT and load module 21 

issues the LINK macro 7 
IKJEFT02 

control returns to TMP 11,43 

entry from TMP (IKJEFT02) 43 

load module in TMP 23 
IKJNAME macro generates a PCE 12 
IKJPARS (PARSE) 

enters PROFILE'S validity check 
routines 12, 47 

TSC service routine 7,17 

used £>y PROFILE 43 
IKJPTGT 

PUTLINE load module 23 
IKJPUTL (see PUTLINE service routine) 
IKJRLSA macro 

issued by PROFILE 43 

releases PDL*s storage 12 

releases storage acquired by PARSE for 
TSC service routines used 8 
illustrations 5 
informational messages 43 

(also see messages) 
in-line subroutines (see validity checking 

routines) 
INPUT 

from TMP 8,43 

from PARSE 47 

from PROFILE 45 

to this command processor 8 
input stack, when flushed (see volume 

introduction ) 
input queue (terminal) „ when cleared 

(see volume introduction) 
installation use of UPTUSER field in the 

UPT 31 
interccm/nc intercom keyword (indicator 
field in PDL) 27 
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internal PUTLINE usage field in PTPB 29 
internal subroutine,, illustrated 43 
introduction 

to this PLM 7 

to this volume (see volume introduction) 
INVPARM message 

deliviered via PUTLINE macro 11,, 43 

issued by PROFILE 43 
INVPARM buffer 

(see buffers) 

contains first- level ires sage 35 



message segment list 

a data area named SEGLIST 30 
address of first-level message 30 
address of second-level message list 30 

message segments (see message segment list) 

messages from other users operand 9 

method of operation diagrams 
description 13 
location 43 
philosophy of (see vclume introduction) 

MO (see Method of Operation diagrams) 



keyword operands 

generated by IKJNAME macro 12 

indicators reside in PDL 12,25 

used along with the PROFILE command 7,9 



label, in program listings 

cross references to 13,43 

philosophy of 

(see volume introduction) 
line delete control character 

as an operand of PROFILE 9 

how to specify 9 

illustrated internally 47 
line keyword parameter of the PROFILE 

command 13 
LINECHEK routine 

position in the lead module 
hierarchy 17 

when used by PARSE 13 

when entered by PARSE 45,47 

in-line subroutine of PROFILE 45 
LINK macro 

control is passed 
to PARSE 7 f 43 
to PUTLINE 8,43 
LINK-EDITED into PROFILE lead module 12 
list form of PUTLINE macro 43 
list of PROFILE messages 33 
load module (see PROFILE load module) 
LOGON 

messages desired at LOGON 26 

request TMP to LOGOFF user bits 26 
LOGON/LOGOFF scheduler builds 

the UPT 31 
LOGON/LOGOFF shares UPT with the TMP 31 



main processing program (see PROFILE 

control routine) 
main storage 

at loading time 35 
released via FREEMAIN macro 12,43 
major data areas (see Contents) 
mapping macro r 

data areas generated by: 
ECT 26 
PPL 28 
PTPB 29 
UPT 31 
member of SYSl.CMDLIE (see PROFILE load 

module) 
message identifiers (see Messages from 

other users) 
message ID/NO message ID keyword 25 



New line character used as a control 

character 13 
next level of message segments 

field in SEGLIST 30 

pointer to 30 
no prompting indicator 

bit field in UPT 31 
no prompting pause indicator 

bit field in UPT 31 
non- interactive mode indicator 

bit field in UPT 31 



occupies same field as PUTPARMP (see PARSE 

parameter list) 
operand (see PROFILE command) 
operand in the command buffer 

generates an entry in PEL 12 

validity check of 43 
operational considerations 

communications with a user 8 

input tc this command processor 8 
options of PROFILE command (see PROFILE 

command) 
order of the PEL, how determined 12 
output 

tc PROFILE 45 

to PARSE 47 

to user 43 
overlay of the PDL 

PDEP dsect 13,27 

used by PROFILE 28 
overlay CSECT of the message list 35 
parameter control entries (PCE) 

one per IKJNAME macrc 12,45 

reside in PDL 12,45 
parameter control list (PCL) 

comprised of all the PCE's 12,45 

specified via IKJNAME macros 12,45 
parameter descriptor list (PEL) 

storage acquired by PARSE 11 

user cptiens are reccrded in 11 
PARSE (IKJPARS) 

a table driven routine 12,45 

(see IKJPARS) 
parse parameter list 

PUTLINE dsect of first four words 28 
parse processing (see TSC service routines 

used by PROFILE) 
PARSE service routine (also see TSO service 

routines used by PROFILE) 
PARSE's save area, registers restored 
from 34 
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parsing the operands found in the command 

buffer 45 
PAUSE/NO PAUSE keyword 

field in PDL 27 
PCE's (see parameter control entries) 
PCL (see parameter control list) 
PDE from PARSE to a validity check routine 

in PROFILE 25 
PDEP data area 27 
PDEP mapping structure 

an overlay of the PDL 13 

used to examine the PDL 13 
PDEP overlay (see PDEP mapping structure) 
PDL 

map the PDL with PDEP 11 

PARSE builds the PDL 45 
PDL storage 

acquired by PARSE 11,45 

released by PROFILE 12,43 
physical characteristics of PROFILE command 

processor 8 
PPL (see PARSE parameter list*) 
PPL (dual purpose) (see PPL) 
presence of operands in command buffer, 

test for 18 
primary command name, field in ECT 26 
processing sequence cf PROFILE 

functions 7 

hierarchy 17 
processing operations 18 
processor (see PROFILE ccmmand processor) 
PROFILE command 

operands of 9 

options available to user 7 
PROFILE load module 

line-edit 12,23 

member of SYS1.CMDLIB 8 

storage required 8 

message list csect 35 

main processing program of PROFILE 8 
PROFILE processing 

if operands are present 11,43 

if PARSE is unsuccessful 11,43 

if PDL is empty 11,43 
PROFILE'S save area, 

address of 33 
PROFMSGS, csect in PROFILE 23,35 
program logic of PROFILE CP 11 
program listings (see label, in program 

listings) 
prompt, for valid input 9,47 
prompt/nc prompt keyword, field in PDL 27 
PTPB (see PUTLINE parameter block) 
PUTLINE (see PUTLINE service routine) 
PUTLINE service routine 

also see ISO service routines used by 
PROFILE) 

controls its own functions 29 

used by PROFILE (as IKJPUTL) 23 

uses SEGLIST to send messages to user 
30 
PUTLINE macro 

generates a LINK iracrc 8 

passes control to PUILINE 43 
PUTLINE parameter block (PTPB) 8,29 
PUTLINE parameter list 

first four words cf PPL 19 

total input to PUTLINE 14 



PUTLINE' s PCL 

mapped in subpocl 1 18 
illustrated example 14 

PUTMSGS, csect in PROFILE 23,17 



recording user's profile 43 
reentrant code for PARSE processing 45 
refreshable code (see reentrant code) 
registers 

base register 33 

on entry 19 

on exit 19 

summary 33 
relationships among PROFILE'S routines 

(see Hierarchy of PROFILE CP) 
represented in table format (see major data 

areas) 
requested TMP to LOGOFF user bits (see IMP) 
respective sections of code (see label) 
return address, register 14,33 
return code (see check return code) 
return cede from previous CP, field 

in ECT 26 
return cede to TMP 43 
return to IKJEFT02 (TMP) 18,43 
return to IKJEFT02 (TMP) 18,43 
routine directory 21 
routines used by PROFILE 18 



save area location 

current routine 33 

PROFILE CP 28 
scan the ccmmand buffer 45 
secondary command name, field in ECT 26 
second-level message chain, address of 26 
second-level message list, address of 30 
see listings (see label) 
SEGLIST (the message list) 

data area 30 

pointer to 19 
send a message to the terminal 43 
size and use cf each suhfield 25 
STCC mac re 

its return code may generate a 'BSASTN" 
msg 43 

sets a control character in Time Sharing 
Elcck 43 
storage (see main storage) 
stored in a non-shared subpcol (see 

Environmental Control table) 
su£fields within major data areas 25 
subpocl 1 (see PUTLINE 's PCL) 
sucpool number of PDL 27 

suppress message ID's, bit field in UPT 31 
switches in the UPT reccrd a user's 

profile 12 
syntax cf parameters 

to PARSE 12 

to PROFILE 43 
SYSl.CMDLIE (see PROFILE lead module) 



table driven routine (see PARSE) 
terminal meniter program 

attaches PROFILE as subtask 43,8 

builds the ECT 25 
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terminal monitor program (continued) 

entry name 23 

reference to its PLM 11,12 

request to LOGOFF user bits 26 

shares the DPT 31 
terminated by the TMP indicator 26 
time sharing block, contains control 

characters 43 
TMP (see Terminal Monitor Program) 
TMP and service routines PLM, references 

to 11,12 
total input to IKJPUTL (PUTLINE) (see TSC 

service routines used by PROFILE) 
TSO service routines used by PROFILE 

additional storage required 8 

complete program logic documentation 11 

hierarchyial relationship 17 

PARSE service routine processing 12,45 

send a message to the terminal via 
PUTLINE 7,43 

secondary routines of PARSE 12 

total input to PUTLINE 14 
TSO user's region 

contents of 8 

protection key 8 

UADS (see User Attributes Data Set) 

UPT (see User Profile Table) 

User Attributes Data Set (see User Profile 

Table) 
user bits (see TMP) 



user communication allowed, tit field in 

UPT 31 
user messages at LOGON, bit field in UPT 

31 
User Profile Table 

accesses the UADS 31 

built by the LOGON/LOGOFF scheduler 31 
illustration of 15 
is set by this CP 7 
its address in the CPPL 8,43 
reserved en word boundary 31 
user specified option 11 
user's environment switches, field 

in UPT 31 
user's evnirenment recorded as a user 
profile 43 



valid operand, syntax check for 12,43 
validity check a CEAR delete CHAR 13,47 
validity check a line delete CEAR 13,47 
validity check exits 

specified by PROFILE 45,47 

taken by PARSE 12,47 
validity checking routines 12,13 



when PUTMSGS is entered, return address is 

saved 34 
word boundary (see UPT) 
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Input from TMP 



Recording Terminal User's Profile 



REG 1 



| Parameter List 



lCPR. 



I Command Buffer 



| User Profile Table 



| PSCB 



j Env Control Table 



kCOMMAND BUFFER 







PROFILE 



from TMP 
(IKJEFT02) 



Description 


Routine 


Label 


FC 


1 Issue list form of PUTLINE macro to map Its PCL 


IKJEFT82 


PUTPARM 


AA 


in subpool l. Check ECT bitswitch (ECTNOPD) for 








presence of operands in command buffer. 








If ON ( I ): No operands are in command buffer. 








"Ignored" message is sent to user via PUTLINE. 




IGNORMSG 


AA 


Return code of is sent via RETURN to IKJEFT02. 








If OFF (0): Operands are in command buffer. 








Ptrs are initialized (using CPPL parameter values). 








Pass control to IKJPARS (PARSE) via LINK macro. 








2 When control is returned, check return code from PARSE. 








If reg 15^0: PARSE was not successful; 








"PARSE Error" message is sent to user 




PUTMSGS 


AA 


via PUTLINE. Return to TMP with 








return code^ 0. 








Check pointer to Parameter Descriptor List built by PARSE. 








If PDEPTR -0: PDL Is empty; 








"Ignored" message is sent to user via PUTLINE. 




IGNORMSG 


AA 


Return to TMP with return code = 0. 








3 The STCC macro is issued to set or change either 




CHKMSGID 


AB 


a line-delete, or a character delete, control character(s) 








in the Time Sharing Block. If this macro returns 








an ' 8 ' return code, the 'BSATTN 1 message will be sent 








to the terminal. Processing them continues from step 4. 








4 Issue IKJRLSA macro to free the main storage 




FREEUP1 


AB 


found at the location pointed to by PDEPTR. 








5 Normal return to IKJEFT02. 




RET 


AB 


Register 15 has a as the return code. 








^FSet up the message address in the SEGMENT 








data field, along with the next message 








level indicator field (LEVEL2P), before issuing 








the CALL macro. 









| Syntax Check operands in the 
command buffer. 
If none, send a message and 



* 



RETURN to the TMP. 



LINK 



2 If PARSE unsuccessful or if 
PDL is empty, inform user 
jfc via PUTLINE and RETURN to TMP. 



3 Check Parameter Descriptor List (PDL) from 
PARSE and determine User's options. 
Then set bits in User Profile 
Table (UPT) to reflect these options. SEE FIGURE 



4 Free PDL. 

5 Normal return to IKJEFT02. 

*^ Send a message to the terminal: 



Pass control to 



PUTMSGS 



CALL 




an internal subroutine 



and then branches to 
the next instruction 



that sets up 
parameters 
for IKJPUTL 
and issues: 



PUTLINE 



to send a 
message to 
the terminal 



« 



IKJPARS 



See Diagram 

[7> 



Output 



IKJPUTL 



TV 




Informational Messages 
to user at the terminal „ 
SEE FIGURE 6-1. 



User's environment 
recorded in User 
Profile Table. 
SEE FIGURE 2-2 



REG 15 



Return code to TMP 



f\ This Input is shown on Figure 2-1 . 



Diagram 2-1. PROFILE Processing 



PROFILE 43 



Input from PROFILE 




REG 1 



t Parse Param List 



PPL 



| User Profile Table 



^ Envirn Control Table 



f Profile's ECB 



f Parameter Cont List 



f Parse Answer Place Ptr 



Command Buffer 



| Profile's Save Area 



from 
PROFILE 



COMMAND BUFFER 



length 


offset 


PROFILE 


operand field 



ZT 



7T 



SIMULTANEOUS SCAN 



NOTE: 


The Parameter Control List (PCL) 


is shown conceptually only ! 


See the TMP Service Routines 


PLM for the actual diagram. 



V- 



Parameter Control List (PCL) 



I 



V 



PROM 



'PROMPT' 



'NOPROMPT' 



MSG 



'MSGID' 



'NOMSGID' 



INT 



'INTERCOM' 



'NOINTERCOM' 



PAUS 



'PAUSE' 



'NOPAUSE' 



CHARAC 



'CHAR' 



■NOCHAR' 



LNE 



■LINE' 



'NO LINE' 



Description 



Routine 



Label 



FC 



1 Issue GETMAIN macro to acquire dynamic core so that module will be refreshable. 

2 Scan the PCL and command buffer. A match constitutes a valid operand. 

3 Each mutually exclusive pair shown in the PCL (i.e. 'PROMPT' and 'NOPROMPT') has 
a corresponding two byte field (PRMT) in the PDL. If neither operand of an 
exclusive pair is found in the command buffer, the two byte status field in the PDL 
will contain '0'. If the positive operand of a pair is found (e.g. PAUSE), the status 
field will contain ' 1 '. If the negative one (e.g. NOPAUSE) is found, the status 
field will contain '2 '. 

4 If 'CHAR' along with one or two characters is found, PARSE executes a BALR instruction 
to branch to CHARCHEK (an in-line subroutine of PROFILE). 

If 'LINE' along with a character or character string is found, PARSE executes 
a BALR to branch to LINECHEK (another in-line validity checking routine). 

5 Both CHARCHEK and LINECHEK use the same return code: 

= VALID CONTROL CHARACTER(S). 

4 = INVALID (tells PARSE to issue the prompt message followed by 
'REENTER 1 , and then wait for a response). 

O Use register 15 to send a return code to PROFILE: 
= SUCCESSFUL parse of OPERANDS 
NON = UNSUCCESSFUL 

RETURN to PROFILE. 



IKJPARS 



CHARCHEK 
LINECHEK 



AA 



Parsing the Operands found in the Command Buffer. 



"l Get dynamic storage. 



2 Scan the Command Buffer and the PCL 
in order to validate the operands. 



3 Build PDL for valid operands. 



4 If 'CHAR' keyword is specified, branch to 
validity check routine in PROFILE. 



If 'LINE' keyword is specified, branch to 
validity check routine in PROFILE. 



O Check return code from either or both validity 
check routines, if applicable. 

O Put a return code in register 15 for a normal 
return to PROFILE (IKJEFT82). 



k If an error should be found, or a prompt 
required, issue the PUTLINE macro 
to send a message to the terminal. 




Output to Profile 



CHARCHEK 



See Diagram 
2-3. 



LINECHEK 



See Diagram 
2-3 



PDEPTR I 



( 



\ PDEP 



IPDEP (local PDL) 



STORPTR 


STORB 


PRMT 


MSGID 


INTERCOM 


PAUSE 


CHART 


LINE 


CHARID 


| CARLEN 


WWJXB. 


J LINEID 


j LINLEN 


wmm 



CHARD EL 



j[\ This Input is shown on Diagram 2-3. 



Diagram 2-2. PARSE Processing When Used by PROFILE 
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CHARCHEK - Validity check a char delete char 



from 
PARSE 



■S 



Input from PARSE 




REG 1 



|PDE 



CHARPDE (local PDE) 



CHARPTR 



CHARLEN 




CHARDEL 





1 


Establish addressability by restoring registers 




11 and 12 from PROFILE'S save area. 


2 


lfCHARLEN = l: 




Is it the new line character ? 




If so, return error code to PARSE; 




Else, since backspace was not specified, 




return valid code to PARSE. 


3 


If CHARLEN >2: 




Return error code to PARSE. 


4 


CHARLEN =2: 




Is it the backspace character ? 




If so, return valid code to PARSE. 




Else, return error code to PARSE. 



LINECHEK - Validity check a line delete char(s) 



Line delete character 



LTEMPCHAR 



from 
PARSE 



1 


Establish addressability by restoring registers 




1 1 and 12 from PROFILE'S save area. 


2 


If CHARLEN - 1 : 




Is it the new line character ? 




If so, return error code to PARSE; 




Else, since backspace was not specified, 




return valid code to PARSE. 


3 


If CHARLEN =4: 




Is it 'ATTN' ? 




if so, return valid code to PARSE. 




Else, return error code to PARSE. 



Output to PARSE 



REG 15 



= valid code 
4 = error code - prompt 
user for valid input 



Diagram 2-3. PROFILE f s Validity Check Routines When Used by 
PARSE 
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Part 2: PROTECT Command Processor 




PROTECT 1 
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Section 1. Introduction 



The PROTECT Command Processor is used to establish or change access 
information concerning the user's data sets. Passwords necessary for 
access are specifed*. It may also be used to obtain security information 
about the user's data sets. 



Functions 

The PROTECT Command Processor performs the following functions : 

• Obtains the PROTECT command string from the command buffer. 

• Scans and syntax checks the command using IKJPARS. 

• Processes data set information. 

• Uses Dynamic Allocation Interface Routine (IKJDAIR) to unallocate 
the data set. 

• Builds SVC parameter list for the requested option. 

• Issues SVC 98 to perform requested operations. 

• Issues appropriate messages. 

Environment 

The PROTECT Command Processor operates in a TSO user's region under 
the protection key assigned to that region. The processor's static 
data and instructions require about 5K of storage. Additional storage 
is needed for the TSO service routines used by this processor. For 
detailed information on storage for TSO and the Storage Estimates SRL , 
GC28-6551. 

Physical Characteristics 

The PROTECT Command Processor consists of one load module, IKJEHPRO. 
The main processing program, IKJEHPRO, handles all the major functions 
of the processor. The messages control section, IKJEHMSG, is in this 
program. IKJEHPCD and IKJEHPWP are used for the IKJPARS macros. 
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Operational Considerations 

PROTECT communicates with a terminal through the PUTLINE service routine 
(IKJPUTL). 

The processor uses the System/360 Operating System service routine, 
SVC 98 , to maintain the PASSWORD Data Set (PWDS) and to update the 
data set control block (DSCB) . 

The PARSE service routine (IKJPARS) scans and syntax checks the 
command string, IKJPARS also prompts for missing or incorrect 
parameters. When a control password is required to authorize acces 
to an entry in the PWDS, IKJPARS prompts for this password. 

Data set names, if not fully qualified, are fully qualified by the 
DEFAULT service routine, IKJEHDEF. 

Input to the processor is the Command Processor Parameter List (CPPL) . 
Upon receiving control, register 1 points to the CPPL. 

The command buffer, addressed by the CPPLCBUF in the CPPL, contains 
the command string. The command string may have the following: 

• The command name, PROTECT. 

• The required positional operand, data set name. 

• The optional keyword parameters (See Command Language Reference . 
GC28-6732). 

Messages are printed at the terminal. These may be informational 
messages, diagnostic messages, or prompting messages. 



PROTECT TSO Command Processor PLM -..- Vol. 6 (Release 20.1) 



Section 2. Method of Operation 



This section discusses the major programming operations of the PROTECT 
Command Processor. 



General 

The PROTECT command is serviced by the PROTECT Command Processor and 
by the action of the PROTECT SVC, SVC 98, 

The purpose of the PROTECT Command Processor is to set up for and 
issue SVC 98 f and then to analyze the return code from the SVC 98 
function and provide appropriate messages or information to the user. 

The SVC 98 function maintains the PWDS and updates the DSCB. 

The Protect Command Processor 

In preparing to issue an SVC 98, the PROTECT Command Processor first 
scans the input for the PROTECT command provided through the TMP. 
Then, according to the type of user request (ADD, REPLACE, DELETE, 
or LIST), the information is formatted and placed in a parameter list. 
The parameter list may vary, depending on the function requested. 

When the SVC 98 function returns control, it provides an appropriate 
return code that describes the action that was taken. 

PROTECT Command Processor operation is illustrated in Diagram 2-1. 

SVC 98 Operation 

The SVC function first determines the type of parameter list passed 
by the command processor. Then, according to the request type, 
appropriate action is taken. The possible actions are illustrated 
in Diagram 2-2. 

Note: The SVC 98 code is not actually part of the PROTECT Command 
Processor. As such, the cross-references into the implementation do 
not appear on Diagram 2-2. Refer to the publication IBM System/360 
Operating System Direct Access Device Space Management (DADSM) PLM , 
Form GY28-6607, for more detailed information about SVC 98. 
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Introduction to the Diagrams 

The remainder of this section consists of the method of operation 
diagrams of the PROTECT Command Processor. 

The diagrams are designed to serve you in different ways: 

• Initially , they quickly provide you with an understanding of the 
programming functions of the command processor. 

• They show how the code supports the functions to be performed. 

• They provide "pointers* to the actual implementations (by cross 
references to the flowcharts or program listings). 

You can use them to become familiar with the system, or later, to 
find your way to specific implementation points in the program listings 
or other areas of the PLM. 

Organization of Diagrams 

Diagram 2-1 shows the overview of the command processor. Diagram 2- 
1 also acts as a directory to the other diagrams in this PLM. 

The processing block lists the various functions performed to produce 
the final output. 

The descriptions provided at the left of the diagram list the major 
implementation steps performed in support of the processing functions. 

The routine , label and flowchart cross-referencing provided with 
the descriptions are "key" points designed to show you where to locate 
the implementations in the program listings or flowcharts. 



8 PROTECT TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Symbols 

This PLM uses the following symbols: 



Heavy black arrow indicates begin reading the diagram here. 



White arrow indicates data transfer from one area to another. 



Black arrow shows flow of logic or passing of control. 




^ Thin black arrow indicates pointer to an item. 

••- Dotted arrow indicates reference to an item. 



g 



Off-page connector leads to a related diagram. 



X Getting or Freeing main storage. 

Signifies passing of parameters. 
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Section 3. Program Organization 



This section contains the PROTECT Command Processor routines. It 
illustrates how they relate to each other. Flowcharts are included 
following the discussion. 

Hierarchy information is shown in Figure 3-1. 



I IKJEHPRO 



* SVC 98 is used by the PROTECT command processor to 
maintain the PWDS and update the DSCB. It is not 
documented in this PLM. See the Direct Access Device 
Space Management (DADSM) PLM , GY28-6607. 



Figure 3-1. Control Module Hierarchy, 
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IKJEHPRO 



Entry 
point 


IKJEHPRO. 


Operation 


Syntax checks command. 

Prompts for missing or incorrect operands. 

Qualifies data set name if necessary. 

Unallocates data set. 

Issues SVC 98. 

Formats requested information when LIST is specified. 

Issues appropriate messages. 


Data Areas 
used 


CPPL f PPL, DAPL, DAPB18, I0PL, PDL,SVCPARMS, DFPL, DFPB, 
PSCB. 


Routines 
called 


LINK to IKJPARS LINK to IKJPUTL 

LINK to IKJDFLT (IKJEHDEF) Issue SVC 98 

LINK to IKJDAIR 


Exits 


Normal return to caller. 


Registers 


Upon entry, register 1 points to the CPPL. 
Upon exit to IKJPARS, register 1 points to PPL. 
Upon exit to IKJPUTL, register 1 points to IOPL. 
Upon exit to IKJEHDEF, register 1 points to DFPL. 
Upon exit to TMP, register 15 has a return code. 
Upon exit to SVC 98, register 1 points to SVCPARMS. 
Upon exit to IKJDAIR, register 1 points to DAPL. 



Cross reference 



FC* MO** 



AA 
AB 



2-1 



FC* indicates flowcharts 
MO** indicates method of operation diagram 
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IKJEHMSG 



Entry 
point 


IKJEHMSG, IKJEHSMG. 


Operation 


This control section contains the messages used by 
IKJEHPRO (first and second level) and two branch tables, 
one for each level of message. 


Data Areas 
used 


Messages (See Section 6K 


Routines 
called 


None. 


Registers 


N/A. 


Exits 


None, 
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Chart AA. IKJEHPRO. PROTECT Command Processing (1 of 2) 



Cross Reference: Diagram 2-1. 



IKJEHPRC 


Al 


( TMP ATTACH J 


1 


Bl 


Initialize and 


GETMAIN 


' 


C 


IKJPARS 


Parse 


Command 




QUALDSN 


D2 


ISSUESVC v D3 


v No 


IKJDFLT 

Qualify 
Data Set 
Name 






IKJDAIR 

Una 1 locate 
Data Set 










1 


E2 




SVC 98 , 


/ 






E3 I 


Yes 


Build 'ADD ' 

Parameter 

List 






IGC0009H 








Issue SVC 98 






PROMPT 002A5 



Prompt for 

Control 

Password 



Build ' 


LIST' 




IKJDAIR 

Una 1 locate 
Data Set 


List 






1 


JVC 98 


f J 


1 


IGC0009H 
Issue SVC 98 





®- 



H3 



Update 'ADD ' 

Parameter 

List 



IKJKPUTL 

Error 

Message to 
User 






Yes 




K2 






K3 


Kl 


Convert 
Count and 
Protection 
Status 


IKJPUTL 

List MPDS 
Entry at 
Terminal 


»/ 








*\ 



J 
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Chart AB. IKJEHPRO. PROTECT Command Processing (2 of 2) 



Cross Reference: Diagram 2-1. 










A3 






Build 
'DELETE' 
Parameter 
List 


1 AB 1 


l£J 






ISSUESVC 


, B3 






IKJDAIR 
Una 1 locate 
Data Set 



PROMPT 



SVC 98 




C 



Prompt Count 


B5 
= 2 

C 


s. Ye * 




i ' 
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Section 4. Directory 



This section contains the routine directory organized alphabetically 
by entry point or routine name. A data area directory is provided 
also and is arranged alphabetically • 



Routine Directory 



Entry point or 
Routine name 


Load Module 


Control Section 


Cross-reference 


MO 


FC 


IKJEHPCD 


IKJEHPRO 


IKJEHPCD 


N/A 


AA 


IKJEHPR0 


IKJEHPRO 


IKJEHPRO 


2-1 


AA-AB 


IKJEHPWP 


IKJEHPRO 


IKJEHPWP 


N/A 


AA 


IKJEHSMG 


IKJEHPRO 


IKJEHSMG 


N/A 


AA 
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Data Area Directory 



Data Area or 
Subfields 


MO 


FC 


CPPL 


2-1 


AA 


DAPB18 


N/A 


AA,AB 


DAPL 


N/A 


AA 


DFPB 


N/A 


AA 


DFPL 


N/A 


AA 


IKJPARMD 


2-1 


AA,AB 


IKJPWPRM 


N/A 


AA,AB 


IOPL 


N/A 


AA 


PPL 


N/A 


AA 


PSCB 


N/A 


AA 


PWDS 


N/A 


AA 


SVCPARMS 


2-1 


AA,AB 
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Section 5. Data Areas 



This section contains the major data areas in the PROTECT Command 

Processor, Pertinent information such as which routine constructed 

the data area, which routine uses the data area, and what the data 
area contains, is included. 



CPPL — Command Processor Parameter List 



Constructed by: TMP. 

Used by: IKJEHPRO. 

Contents: The CPPL is a list of pointers to tables, control 

blocks, and the command buffer. Upon entry it is pointed 
to by register 1. 



Disp 
Dec (Hex) 


Field 


Size 


Use 


(0) 


CPPLCBUF 


4 bytes 


Points to the command buffer. 


4 U> 


CPPLUPT 


4 bytes 


Points to the User Profile Table 
(UPT) . 


8 (8) 


CPPLPSCB 


4 bytes 


Points to the Protected Step Control 
Block (PSCB) . 


12 (C) 


CPPLECT 


i* bytes 


Points to the Environment Control 
Table (ECT). 



Cross reference 



FC MO 



AA 2-1 



PROTECT 19 



DAPB18 — A Parameter List Used When the Requested dsname or ddname is to be 
Unallocated 

Constructed by: IKJEHPRO. 

Used by: IKJDAIR. 

Contents: Data set information found by adding the contents of register 
13 and the displacement value of DAIR18 in the cross 
reference table. 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 


Use 


(0) 


DA18CD 




2 bytes 


IKJDAIR entry code X f 0018' . 


2 (2) 


DA18FLG 




2 bytes 


Functions to be performed when 
return code =0. 


DA18FPE 


1 byte 


X'SO' indicates function 
performed but an error is 
indicated by the return code. 


4 (4) 


DA18DARC 




2 bytes 


Dynamic allocation return code. 


6 (6) 


DA18CTRC 




2 bytes 


CATALOG routine return code. 


8 (8) 


DA18PDSN 




4 bytes 


Points to dsname to be searched 
in DSE. 


12 (C) 


DA18DDW 




8 bytes 


Ddname to be searched for in 
DSE. 


20 (14) 


DA18MNM 




8 bytes 


Member name. 


28 (1C) 


DA18CLS 




2 bytes 


SYSOUT class desired when 
unallocating a SYSOUT data set. 
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DAPB18 — A Parameter List Used When the Requested Dsname or Ddname is 
to be Unallocated (Cont.) 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 


Use 


30 (IE) 


DA18DPS2 


DA18KEEP 
DA18DEL 
DA18CAT 
DA18UCAT 


1 byte 
1 byte 
1 byte 
1 byte 
1 byte 


disposition,. 

X f 08 f change disp to KEEP. 
X'OU 1 change disp to DELETE. 
X f 02 f change disp to CATALOG. 
X'Ol 1 change disp to UNCATALOG. 


31 (IF) 


DA18CTL 




1 byte 


Flags for special IKJDAIR 
processing. 


DA18UID 




X^O' userid is to be prefixed 
to dsname. 


32 (20) 


DA18JBNM 




8 bytes 


Jobname. 



Cross reference 



FC 



MO 



AA N/A 

AB 
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DAPL — Dynamic Allocation Parameter List 

Constructed by: IKJEHPRO. 

Used by: IKJDAIR. 

Contents: DAPL is a parameter list passed to IKJDAIR. This is based 

on the address of DAIRPARM. DAIRPARM is found by adding the 
contents of register 13 to the displacement value of DAIRPARM 
in the cross reference table. 



Disp 
Dec (Hex) 


Field 


Size 


Use/Contents 


(0) 


DAPLUPT 


4 bytes 


Points to the UPT. 


4 U) 


DAPLECT 


4 bytes 


Points to the ECT. 


8 (8) 


DAPLECB 


4 bytes 


Points to the Event Control Block (ECB) . 


12 (C) 


DAPLPSCB 


4 bytes 


Points to the PSCB. 


14 (10) 


DAPLDAPL 


4 bytes 


Points to the IKJDAIR parameter block. 



Cross reference 



FC MO 
AA N/A 
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DFPB— IK JEHDEF Parameter Block 

Constructed by: IKJEHPRO. 

Used by: IKJEHDEF. 

Contents: DFPB is a parameter block that controls operation of the 

IKJEHDEF service routine. It is pointed to by DFPLDFPB in 
the DFPL. It can also be found by adding the contents of 
register 13 the displacement value of DFLTPBLK in the cross 
reference table. 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 


Use/Contents 


(0) 


DFPBCODE 




1 byte 


IKJEHDEF entry code data set 
name. 


DFPBOC 
DFPB 08 
DFPB 04 
DFPBOO 




X'OC - entry "0C f . 
X f 08 f entry code "08* . 
X'OH' entry code f 04* . 
X f 00 f entry code f 00 f . 


1 (1) 


DFPBDSN 




3 bytes 


Points to data set name length 
and 


4 (4) 


DFPBCNTL 




1 byte 


IKJEHDEF control byte. 


DFPBUID 
DFPBRET 
DFPBADD 
DFPBMSG 




Userid prefix indicator X*20 1 « 
Return added qualifier X*04' . 
Add specified qualifier X"02 i . 
Issue message X'Ol*. 


5 (5) 


DFPBPSCB 




3 bytes 


Points to PSCB. 


8 (8) 


DFPBLORC 




1 byte 


LOCATE return code returned here. 


9 (9) 


DFPBQUAL 




3 bytes 


Points to IKJEHDEF qualifier. 



Cross reference 



FC MO 
AA N/A 
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DFPL — IKJEHDEF Service Routine Parameter List 

Constructed by: IKJEHPRO. 

Used by: IKJEHDEF. 

Contents: The DFPL is a list of addresses passed to IKJEHDEF by the 
command processor. It is found by adding the contents of 
register 13 to the displacement value of DFLTPARM in the 
cross reference table. 



Disp 
Dec (Hex) 


Field 


Size 


Use/Contents 


(0) 


DFPLUPT 


4 bytes 


Points to the UPT. 


4 (4) 


DFPLECT 


4 bytes 


Points to the ECT. 


8 (8) 


DFPLECB 


4 bytes 


Points to the ECB. 


12 (C) 


DFPLDFPB 


4 bytes 


Points to IKJEHDEF parameter block 


CDFPB) . 



Cross reference 



FC MO 
AA N/A 
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IKJPARMD— IK JPARS Descriptor List 

Constructed by: IKJPARS. 

Used by: IKJEHPRO. 

Contents: IKJPARMD contains data set information returned by IKJPARS, 
It is pointed to by the contents of register 9 upon return 
from IKJPARS. 



Disp 
Dec (Hex) 


Field 


Size 


Use/ Contents 


(0) 




8 bytes 


Storage chains for IKJPARS. 


8 (8) 


PRODS N 


4 bytes 


Points to data set name. 


12 (C) 




2 bytes 


Length of data set name. 


14 (E) 




1 byte 


flags for data set information. 


15 (F) 




1 byte 


Not used (reserved) . 


16 (10) 




4 bytes 


Points to member name. 


20 (14) 




2 bytes 


Length of member name. 


22 (16) 




1 byte 


Flags for member name information. 


23 (17) 




1 byte 


Not used (reserved) . 


24 (18) 




4 bytes 


Points to password. 


28 (1C) 




2 bytes 


Length of password. 


30 (IE) 




1 byte 


Flags for password information. 


31 (IF) 




1 byte 


Not used (reserved) . 


32 (20) 


PROTYPE 


2 bytes 


Indicates function. 

1 indicates "ADD* specified or 
defaulted. 

2 indicates 'REPLACE 1 specified. 

3 indicates 'DELETE 1 specified. 

4 indicates 'LIST* specified. 
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IKJPARMD — IKJPARS Descriptor List (Cont.) 



Disp 
Dec (Hex) 


Field 


Size 


Use/Contents 


34 (22) 


RDTYPE 


2 bytes 


Indicates READ specification, 

indicates no READ keyword specified, 

1 indicates •PWREAD 1 specified, 

2 indicates •NOPWREAD' specified. 


36 (24) 


WRTYPE 


2 bytes 


Indicates WRITE specification, 

indicates no WRITE keyword 
specified, 

1 indicates •PWWRITE* specified. 

2 indicates • NOWRITE" specified. 


38 (26) 


DATATYPE 


2 bytes 


Indicates DATA specification, 

indicates no DATA keyword 
specified. 

1 indicates f DATA f specified. 








IKJPARS provides an additional 
doubleword for each password or 
data field specified in the command. 
These fields are referenced using 
the labels ADDNEWPW r REPOLDPW, 
REPNEWPW, DELOLDPW, LSTOLDPW, 
STRDATA, The format of each 
doubleword is as follows: 






4 bytes 
2 bytes 
1 byte 
1 byte 


Points to the character string. 

Length of the character string. 

Flags. 

Not used (reserved). 



Cross reference 



FC 



MO 



AA 
AB 



2-1 
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IKJPWPRM— IK JPARS Descriptor List 

Constructed by: IK JPARS, 

Used by: IKJEHPRO. 

Contents: IKJPWRM contains information about the control password, 
is pointed to by register 9 upon return from IK JPARS. 



It 



Disp 
Dec (Hex) 


Field 


Size 


Use 


(0) 




8 bytes 


Storage chains for IK JPARS. 


8 (8) 


CNTRLPW 


4 bytes 


Points to character string. 


12 (C) 




2 bytes 


Length of character string. 


14 (E) 




1 byte 


Flags . 


15 (F) 




1 byte 


Unused (reserved). 



Cross reference 



FC 

AA 
AB 



MO 
N/A 
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IOPL — Input/Output Parameter List Passed to IKJPUTL 

Constructed by: IKJEHPRO. 

Used by: IKJPUTL. 

Contents: IOPL contains a list of pointers to tables and blocks 

used by the I/O service routines. It is found by adding 
the contents of register 13 and the displacement value 
of IOPARM in the cross reference table. 



Disp 
Dec (Hex) 


Field 


Size 


Use/Contents 


(0) 


IOPLUPT 


4 bytes 


Points to UPT. 


4 (4) 


IOPLECT 


4 bytes 


Points to ECT. 


8 (8) 


IOPLECB 


U bytes 


Points to the ECB. 


12 (C) 


IOPLIOPB 


4 bytes 


Points to the I/O service routine 
parameter block. 



Cross reference 



FC MO 
AA N/A 
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PPL— IK JPARS Parameter List 



Constructed by: IKJEHPRO. 

Used by: IK JPARS. 

Contents: The PPL is a list of addresses from the command processor. 
It is found by adding the contents of register 13 and the 
displacement value of PARSPARM in the cross reference table. 



Disp 
Dec (Hex) 


Field 


Size 


Use/ Contents 


(0) 


PPLUPT 


4 bytes 


Points to the 


UPT. 


4 (4) 


PPLECT 


4 bytes 


Points to the 


ECT. 


8 (8) 


PPLECB 


4 bytes 


Points to the 


ECB. 


12 (C) 


PPLPCL 


4 bytes 


Points to the 


IKJPARS control list. 


16 (10) 


PPLANS 


4 bytes 


Points to the 


answer place. 


20 (14) 


PPLCBUF 


4 bytes 


Points to the 


command buffer. 


24 (18) 


PPLUWA 


4 bytes 


Points to the user work area 
for validity check routines. 



Cross reference 



FC MO 
AA N/A 
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PSCB— Protected Step Control Block 

Constructed by: LOGON, 

Used by: IKJEHPRO. 

Contents: The PSCB contains user attributes and accounting data on a 
userid basis. It is pointed to by CPPLPSCB in the CPPL. 



Disp 

Dec (Hex) 


Field 


Subfield 


Size 


Use 


(0) 


PSCBUSER 




7 bytes 


Userid, 


7 (7) 


PSCBUSRL 




1 byte 


Length of userid. 


8 (8) 


PSCBGPNM 




8 bytes 


Used by dynamic allocation 
when unit name is not 
specified. 


16 (10) 


PSCBATR1 




1 byte 


Bit string of user 
attributes. 


PSCBCTRL 
PSCBACCT 
PSCBJCL 




X'SO" OPERATOR command user. 
X'^O' ACCOUNT command user. 
X'20 f SUBMIT command user. 
The remaining bits, 3-15 , 
are reserved for IBM use. 


17 (11) 


Unnamed 




1 byte 


Not used (reserved). 


18 (12) 


PSCBATR2 




1 byte 


Reserved for installation 
use. 


19 (13) 


Unnamed 




1 byte 


Not used (reserved) . 


20 (14) 


PSCBCPU 




4 bytes 


Cumulative CPU time used 
during session. 


24 (18) 


PSCBSWP 




4 bytes 


Cumulative time resident 
in the region. 


28 (1C) 


PSCBLTIM 




4 bytes 


Actual Logon time of day. 
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PSCB — Protected Step Control Block (Cont.) 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 


Use/Contents 


32 (20) 


PSCBTCPU 




4 bytes 


Total CPU time used in this 
accounting period. 


36 (24) 


PSCBTSWP 




4 bytes 


Total time user is resident 
in the region during this 
accounting period. 


40 (28) 


PSCBTCON 




4 bytes 


Total time user is connected 
during this accounting period. 


44 (2C) 


PSCBTCOl 




4 bytes 




48 (30) 


PSCBLGB 




4 bytes 


Points to RELOGON buffer. 


52 (34) 


PSCBUPT 




4 bytes 


Points to user profile table. 


56 (38) 


PSCBUPTL 




2 bytes 


Length of UPT. 


58 (34) 


Unnamed 




6 bytes 


Reserved for IBM. 


64 (3C) 


PSCBU 




8 bytes 


Reserved for installation use. 



Cross reference 



FC MO 
AA N/A 
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PWDS— PASSWORD Data Set Record Format 



-52 byte key- 



K 80 byte data area > 

-44 bytes >f<-8 bytes^(-<-3 bytes->f< 77 bytes > 



Fully qualified 
data set name 



Password 



User Data Field 

(Optional character info.) 



1 — Protection Mode Indicator 
1 byte — See below 

1 — Binary Access Counter 
2 bytes 



Protection Mode Indicator 
bit 00 



01 
02 
03 
04 
05 
06 
07 



On indicates control password. 
Off indicates secondary password. 



Not used (reserved). 



On indicates READ/WRITE. 
Off indicates READ ONLY. 



Cross reference 



FC MO 
AA N/A 
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SVCPARMS— SVC Parameter List 

Constructed by: IKJEHPRO. 

Used by: SVC 98 • 

Contents: SVCPARMS is a list of information concerning function that is 
passed to SVC 98. It is found by adding the contents of 
register 13 and the displacement value of SVCPARMS in the 
cross reference table. 



Disp 
Dec (Hex) 


Field 


Size 


Use 


(0) 


SVCOPT 


1 byte 


SVC 98 entry code. 


1 (1) 


Unnamed 


3 bytes 


Not used (reserved) . 


4 (4) 


SVCDSL 


1 byte 


SVC 98 data set name length. 


5 (5) 


SVCDSN 


3 bytes 


Points to the data set name. 


8 (8) 


SVCCURPW 


4 bytes 


Points to current password. 


12 (C) 


SVCCONPW 


4 bytes 


Points to control password. 


16 (10) 


SVCVOLS 


1 byte 


Number of volumes. 


17 (11) 


SVCVLIST 


3 bytes 


Points to volume list. 


20 (14) 


SVCPCODE 


1 byte 


Protection code, 


21 (15) 


SVCNEWPW 


3 bytes 


Points to new password. 


24 (18) 


SVCSTLTH 


1 byte 


String length. 


25 (19) 


SVCSTRNG 


3 bytes 


Points to string. 



Cross reference 



FC 


MO 


AA 


2-1 


AB 
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Section 6. Diagnostic Aids 



This section contains a register summary and the messages dealing with 
the PROTECT command processor. 



Register Summary 



Register 


Use 





Used as a work register. 


1 


Used as a parameter register and as a work register. 


2 


Used as a work register. 


3 


Used in "EXEC MVC as a pointer to , TO AREA 1 . 
Also used as a work register. 


4 


Used in 'EXEC MVC 1 as a pointer to "FROM AREA f . 
Also used as a work register. 


5 


Used as a work register. 


6 


Used as a work register. 


7 


Not used. 


8 


Used as a work register. 


9 


Used as base register for IKJPARS dsect. 


10 


Used as a work register. 


11 


Used as a work register. 


12 


Used as base register for this program. 


13 


Used as save area register, and as base register for 
GETMAIN area. 


14 


Used as the link register. 


15 


Used as the branch and return code register. 
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Messages 



Issued by 


Message ID 


Message Content 








PROTECT 
PROTECT 
PROTECT 
PROTECT 


IKJ58101I 
♦IKJ58101I 
*IKJ58101I 
♦IKJ58101I 


UNABLE TO PROTECT DATA SET dsname+ 
PASSWORD DATA SET NOT FOUND 
PASSWORD DATA SET FULL 
I/O ERROR IN PASSWORD DATA SET 


PROTECT 


IKJ58102I 


NOT ENOUGH MAIN STORAGE TO EXECUTE COMMAND 


PROTECT 


IKJ58103I 


DATA SET ds name NOT IN CATALOG 


PROTECT 

PROTECT 
PROTECT 
PROTECT 
PROTECT 
PROTECT 
PROTECT 


IKJ58104I 

♦IKJ58104I 
♦IKJ58104I 
♦IKJ58104I 
*IKJ58104I 
*IKJ58104I 
*IKJ58104I 


UNABLE TO MODIFY PROTECTION FLAGS OF DATA 

SET dsname* 
DATA SET NOT IN CATALOG 
DATA SET NOT ON VOLUME 
REQUIRED VOLUME NOT MOUNTED 

TAPE DATA SET CANNOT BE PROTECTED BY PROTECT 
I/O ERROR WHILE UPDATING SECURITY FLAGS 
DATA SET IN USE 


PROTECT 


IKJ58105I 


INCORRECT PASSWORD ENTERED TWICE 


PROTECT 


IKJ58106I 


PASSWORD password ALREADY EXISTS 


PROTECT 


IKJ58107I 


PASSWORD password DOES NOT EXIST 


PROTECT 


IKJ58108I 


PROTECTION IS FOR DATA SETS r NOT MEMBERS 


PROTECT 


IKJ58109I 


USER DATA FIELD BLANK 


PROTECT 


IKJ58110I 


INCORRECT CONTROL PASSWORD password 


PROTECT 


IKJ58111I 


INVALID DATA SET NAME, •dsnarae* EXCEEDS 
44 CHARACTERS 


PROTECT 
PROTECT 
PROTECT 
PROTECT 


IKJ58112I 
♦IKJ58112I 
♦IKJ58112I 
♦IKJ58112I 


COMMAND SYSTEM ERROR* 
PARSE ERROR CODE xxxx 
DEFAULT ERROR CODE xxxx 
SVC 98 RETURN CODE xxxx 


IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 


PROMPT 
PROMPT 
PROMPT 
PROMPT 
PROMPT 


ENTER DATA SET NAME- 
ENTER NEW PASSWORD- 
ENTER CURRENT PASSWORD- 
ENTER DATA- 
ENTER CONTROL PASSWORD- 
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Messages (Cont.) 



Issued by 


Message ID 


Message Content 


IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 

IKJPARS 


HELP 
HELP 
HELP 
HELP 
HELP 
HELP 

HELP 


ENTER NAME OF DATA SET TO BE PROTECTED- 
ENTER PASSWORD OF ENTRY TO BE ADDED- 
ENTER PASSWORD OF ENTRY TO BE REPLACED- 
ENTER PASSWORD OF ENTRY TO BE DELETED- 
ENTER PASSWORD OF ENTRY TO BE LISTED- 
ENTER UP TO 77 BYTES OF CHARACTER 

INFORMATION IN QUOTES- 
ENTER PASSWORD OF CONTROL (FIRST) ENTRY FOR 

THIS DATA SET- 


SVC 98 


IEC021I 


NO SPACE IN THE PASSWORD DATA SET 
(Issued to operator console) 



* indicates second level 
message for documentation 
only. 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/360 Operating System: Program Logic 
Manual Master Index , Order No, GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index, 



access 6 

information 5 
ACCOUNT command 30 
accounting data 30 
actual logon time 30 
ADD 

specified qualifier 25 
ADDNEWPW 26 
answer place 29 
arrow 

black 9 

dotted 9 

heavy black 9 
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base register 35 

binary access counter 32 

bit string 30 

branch and return code register 35 



CATALOG routine return codes 20 
character string 27 

length 27 
CNTRLPW 

field in IKJPWPRM 27 
command 5 

ACCOUNT 30 

buffer 5 

name, PROTECT 6 

OPERATOR 3 

processor 5 

parameter list 6,19 

string 5 

SUBMIT 30 
control 

blocks 19 

module hierarchy 11 

password 33 

section 13 , 17 
CPPL 

data area 19 

in data area directory 18 
CPPLCBUF 

field in CPPL 



CPPLUPT 

field in CPPL 
CPPLECT 

field in CPPL 
CPPLPSCB 

field in CPPL 



19 



19 



19 



19 



cumulative 

CPU time 30 
time resident 30 



DAPB18 

data area 20-21 

in data area directory 18 
DAPL 

data area 22 

in data area directory 18 
DAPLDAPB 

field in DAPL 



22 



DAPLECB 






field in 


DAPL 22 


i 


DAPLECT 






field in 


DAPL 22 


> 


DAPLPSCB 






field in 


DAPL 22 


i 


DAPLUPT 






field in 


DAPL 22 


i 


data 






area 






CPPL 


19 




DAPB18 20-21 




DAPL 


22 




DAPB 


23 




DFBL 


24 




directory 18 




IKJPARMD 25-26 


IKJPWPRM 27 




IOPL 


28 




PPL 29 




PSCB 


30-31 




PWDS 


32 




SVCPARMS 33 




areas 19 




field 19 




set control block 


: 20-34 


set information 


5,20,25 


set name 


25 




set name, 


r length 


23,25 


set disposition 


21 


sets 5 






transfer 


9 




type 26 






DAI 8 CAT 






field in 


DAPB18 


21 


DAI 8 CD 






field in 


DAPB18 


20 


DA18CLS 






field in 


DAPB18 


iO 


DA18CTL 






field in 


DAPB18 


21 


DA18CTRC 






field in 


DAPB18 


20 


DA18DARC 






field in 


DAPB18 


20 


DA18DDN 






field in 


DAPB18 


20 


DA18DEL 







field in DAPB18 21 
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DA18DPS2 

field in DAPB18 21 
DA18FLG 

field in DAPB18 20 
DA18FLE 

field in DAPB18 20 
DA18JBNM 

field in DAPB18 21 
DA18KEEP 

field in DAPB18 21 
DA18MNM 

field in DAPB18 20 
DAIRPARM 

data area 19 
DA18PDSN 

field in DAPB18 20 
DA18UCAT 

field in DAPB18 21 
DA18UID 

field in DAPB18 21 
ddname 2 

DEFAULT service routine 6 
DELETE, user request 7 
DELOLDPW 

label in IKJPARMD 26 
DFLTPBLK 

reference point to DFPB 23 
DFLTPARM 

reference point to DFPL 24 
DFPB 

data area 23 

in data area directory 18 
DFPBADD 

field in DFPB 23 
DFPBCODE 
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Input 



PROTECT Command Processing 



Result 



Reg 1 



CPPL 



From 
TMP 



Command Buffer 



PROTECT 



Standard TMP Interface 



Description 



Routii 



Label 



FC 



I A GETMAIN is issued to request storage. If sufficient storage is not available, the 
program is abnormally terminated. Then general parameters for IKJPARS, IKJDAIR, 
IKJEHDEF (used if it is necessary to fully qualify the data set name), and IKJPUTL 
are initialized. 



£. Then the command is scanned and checked for correct syntax by the IKJPARS routine. 
IKJPARS places the address of the PDL (see A) in the answer place provided by 
IKJEHPRO. The PROTECT command processor uses this information to form a 
parameter list for the SVC 98 (PROTECT SVC) modules. 

O After checking the IKJPARS return code the control password, if one was specified, 
is moved to the buffer. 
Then, if the data set name was not fully qualified, it is fully qualified using IKJEHDEF, 



Next the function to be performed, found in PROTYPE, is checked and the parameter 
list for SVC 98 is filled in accordingly. The first byte of the parameter list contains a 
hexadecimal value indicating the function, as follows: 

X'OT ADD an entry to the password data set (PWDS). 

X'02' REPLACE an entry in the password data set. 

X'03' DELETE an entry from the PWDS. 

X'04 1 LIST protection, security counter, and optional data information 

of a protected data set. (The last 80 bytes of the PWDS entry for 
this data set password is placed in the 80 byte buffer pointed to 
by the SVC parameter list.) 

Una I locates the data set. 



5 Issue SVC 98 (see Diagram 2-2.) 



O Upon return from SVC 98, control is passed to' the appropriate message processing 
and/or clean up locations, according to the return code provided by SVC 98. 



IKJEHPRO 



IKJEHPRO 



QUALDSN 



CHECKFCN 



ISSUESVC 



SVC98 



AA 



AA 



AB 



X'OT 



IGC0009H module 



IKJEHPRO 



SVCRCTAB 






I Initialize 



2 Scan and syntax check. 






Parse 



From Step 5 



Standard 

parameter 

list 



PDL 



3 Process dsname information. 



Check function — 
Fill in SVC 
Parameter list 
Unallocate data set. 



Issue SVC 98 



O Check Return code. 
Process accordingly. 



^> 



V 



SVC parm 
list. 



See A for PDL 

(IKJPARMD) format 



ADD, REPLACE, DELETE or LIST 
information ^- 




See 



B 



/ 



/ 



IKJPARMD 



PRODSN 



Return from 
SVC 98 
processing. 



PROTYPE 
WRTYPE 



D SVC parameter list. — The format of this list 
varies, according to the function detected. 





4 data set name 




dsname length 


ds flags 






4 member name 




length 


flags 






4 password 




length 


flags | 




-• 












-• 














RDTYPE - 




DATATYPE 





Note: for the logic behind the SVC 98, see 
Figure 6-2. For the actual module 
specifications, refer to the 
IBM System/360 Operating 

System Direct Access 

Device Space Management (DADSM), 

Form GY2 8-6607. 

PROTYPE 

1 = ADD function 

2 = REPLACE function 

3 = DELETE function 

4 - LIST function 

RDTYPE 

= Neither is specified 

1 = PWREAD is specified 

2 - NOPWREAD is specified 

WRTYPE 

= Neither is specified 

1 = PWWRITE is specified 

2 = NOWRITE is specified 

DATATYPE 

= DATA not specified 

1 = DATA is specified 

IKJPARS provides an additional 
double word area for each 
password or data field 
specified. The format is: 






01 


00 00 00 


4 


dslength 


4 


dsname 


8 


Prot code 


4 


New password 


12 


00 


♦ 


Control password 


16 


String length 


4 


String 


20 


Num of Vols 


4 


Volume list 


X'02' 


1 byte 




3 bytes 





02 


00 00 00 


4 


dslength 


4 


dsname 


8 


00 


4 


Current password 


12 


Prot code 


4 


New password 


16 


00 


4 


Control password 


20 


String length 


4 


String 


24 


Num of Vols 


4 


Volume list 



X'03 



4 

8 
12 
16 



X'04' 



03 


00 00 00 


dslength 


4 dsname 


00 


A Current password 


00 


4 Control password 


Num of Vols 


^ Volume list 



04 


4 Buffer (80 byte) 


dslength 


4 dsname 


00 


4 Current password 



4 password string 



string length 



flags 



Applicable names are : 

ADD NEW PW 

REPOLDPW 

REPNEWPW 

DELOLDPW 

LSTOLDPW 

STRDATA 
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SVC 9? 



PROTECT Command Processor 



SVC Parameter List 




Buffer Areas 



<t 




Process Parameter List 



Update DSCB 



Return 



1 Enqueue on PWDS. 



2 Examine parameter 
list. ' 




O Provide return code in 
register 15. 



f 



1 LOCATE data set and 
OBTAIN its DSCB. 



2! Update protection 
flags in DSCB. 

^ / 

O Place updated DSCB 
inVTOC. 




.PWDS 






I 



LIST only 



This path is taken only for those 
actions that require updating 
protection flags in the DSCB. 




VTOC 



Volume containing 
data set. 



ACTIONS 

The SVC 98 modules compare specified password information 
with password data set (PWDS) entries, maintain the PWDS, 
provide PWDS information to the PROTECT Command processor 
(for LIST only), and/or update the protection flags in the 
DSCB of a data set whose protection features have been 
modified. 



Processing depends on the function requested by the user. 
LIST Data Set Password Entry 



DELETE Data Set Password Entry 



ADD a Data Set Password Entry 



REPLACE Data Set Password Entry 



• Validity Check buffer address 

• Search PWDS for the password 

• Place last 80 bytes of PWDS record into 
buffer area. 



Search PWDS for entry. 

• If entry is a control entry, delete all 
entries from the PWDS for this data 
set. Then dequeue the PWDS and 
update the DSCB protection flags. 

• If entry is not a control entry, search 
the PWDS for the control entry. Then, 

if the control password is correctly specified, 
delete the applicable entry and dequeue 
the PWDS. 

• If the entry cannot be found, or if the 
control password was specified 
incorrectly, a return code is generated. 



Search PWDS for entry, if one is found 
(or if the control password is specified 
incorrectly or the PWDS is full ), an 
applicable return code is set. 
Otherwise : 

• If no corresponding entry is found, the 
specified password is the first for this 
data set, and space is available in the 
PWDS, 

• The PWDS is dequeued. 

• The DSCB protection flags 
are updated. 

• If no corresponding entry is found, but 
this password is not the first specified 
for the data set, 

• The PWDS is searched for the 
control entry. 

• If the control password is specified 
correctly and space is available in 
the PWDS, the requested addition 
is made. Otherwise an applicable 
return code is set. 



Search PWDS for entry. 

• If the entry found is not the control entry, 
the PWDS is searched for the control entry. 
Then, if the control password was specified 
correctly, the entry to be replaced is 
replaced with the new password information. 

• If the entry is the control entry it is 
replaced. Then, if the protection type was 
changed, the PWDS is dequeued and the 
DSCB protection flags are updated. 

• If no corresponding entry is found in the 
PWDS, or if the control password is 
specified incorrectly, an applicable return 
code is set. 



Diagram 2-2. PROTECT (SVC 98) Processing 
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Section 1. Introduction 



RENAME is a TSO Command Processor designed to: 

• Change the name of a sequential data set residing on a direct 
access device, 

• Change the name of a partitioned data set. 

• Change the name of a member of a partitioned data set, 

• Create an alias for a member of a partitioned data set. 

Functions 

RENAME communicates with a terminal through the PUTLINE service routine 
(IKJPUTL). Access to the VTOCs, PDS directory entries and the system 
catalog are all accomplished through System/360 Operating System (S/360 
OS) routines — OPEN, BLDL, STOW, CLOSE, CATALOG, LOCATE, INDEX, and 
RENAME. 

The Dynamic Allocation Interface Routine (IKJDAIR) allocates data 
sets. The PARSE Routine (IKJPARS) scans and syntax checks the command 
string. The Catalog Information Routine (IKJEHCIR) searches the catalog 
for index levels and simple data names. 

The RENAME Command Processor performs the following functions: 

• Obtains the RENAME command string from the command buffer. 

• Checks for a valid asterisk qualifier in the data set name. Checks 
for the same index level on both data set names. 

• Builds new data set names. 

• Qualifies dsname if necessary. 

• Allocates data set (using OS enqueuing facility) . 

• If RENAME is for a member of a partitioned data set: 

Verifies, opens, and closes data set. 

Creates alias (if specified) or replaces member name. 



RENAME 



• If RENAME is for a sequential data set: 

Renames data set. 

Catalogs new data set and uncatalogs old. 

Builds new index levels as necessary. 

Deletes old index levels as necessary. 

Renaming process repeats for next data set (only applicable 
if * processing) . 

Environment 

The RENAME Command Processor operates in a TSO user's region under 
the protection key assigned to that region. The processor 1 s data and 
instructions require about 6K bytes of storage. Additional storage 
is used for the service routines. Definitive figures for using TSO 
and the RENAME Command Processor can be found in the Storage Estimates 
SRL, GC28-6551. 

Physical Characteristics 

The processor consists of one load module containing the main program 
control sections (IKJEHREN and IKJEHRN2) and the messages control 
section (IKJEHMSG). The IKJEHRN2 control section handles all the major 
functions of the processor and returns control at the end of processing 
to the Terminal Monitor Program (TMP) . IKJEHPDL contains the IKJPARS 
macros . 

Operational Considerations 

Input is the standard Command Processor Parameter List (CPPL) . The 
TMP passes the address of the CPPL by register 1 to the command 
processor. The command buffer, pointed to by the CPPL, contains the 
RENAME command and its optional operands. 
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The RENAME command consists of the following: 

• The command name RENAME. 

• Positional operands specifying the old data set name and the new 
data set name. (See the Command Language Reference f GC28-6732) . 

• The optional operand r ALIAS 9 indicating the member name specified 
is to become an alias for the member identified in the old data 
set name. 

Messages are printed at the terminal. These include diagnostic 
messages , informational messages, and prompting messages. 



RENAME 7 
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Section 2. Method o£ Operation 



This section describes the logic of the RENAME Command Processor, 

It emphasizes the flow of data and control information through buffers 

and tables r and contains detailed functional descriptions of the RENAME 

operation. 

Program logic information for the TMP and the TSO service routines 
used by the RENAME Command Processor is contained in the IBM System/360 
Operating System Time Sharing Option Terminal Monitor Program and 
Service Routines Program Logic Manual , GY28-6770. 

RENAME Command Processing Summary 

RENAME changes the name of a data set, or a partitioned data set CPDS) 
member. It optionally creates an alias for an existing PDS member. 

RENAME command processing begins when control is received from the 
Terminal Monitor Program (TMP). The IKJPARS parameter list is 
initialized and control is given to IKJPARS to check the syntax of 
the RENAME command. Upon successful completion, control returns. 
The data set name is scanned for valid asterisk qualifiers. If valid 
qualifiers are found, IKJEHCIR gets the data set names or the index 
names , as requested. Data sets are allocated and unallocated using 
IKJDAIR. Complete data set names are built. The data set or member 
is renamed. 

When working with members of a PDS, the name change or alias creation 
is accomplished by updating the directory of the specified PDS. 

For non-member name changes, in addition to modifying the VTOC, the 
RENAME Command Processor removes the old data set reference from the 
system catalog and inserts the new data set reference. 

Data set names are fully qualified when necessary, using the TSO 
Default service routine (IKJEHDEF) . 

Introduction to the Diagrams 

The remainder of this section consists of the method of operation 
diagrams for the RENAME Command Processor. 
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The diagrams are designed to serve you in different ways: 

• Initially w they quickly provide you with an understanding of the 
programming functions of the command processor. 

• They show how the code supports the functions to be performed. 

• They provide "pointers" to the actual implementations (by cross 
references to the flowcharts or program listings). 

You can use them to become familiar with the system, or later , to 
find your way to specific implementation points in the program listings 
or other areas of the PLM. 

Organization of the Diagrams 

Diagram 2-1 shows the functions of the controlling module. The other 
diagram included in this PLM is diagram 2-2. It shows specific data 
areas. 

The processing block lists the functions performed in producing final 
output. 

The descriptions provided at the left of the diagram list the major 
implementation steps performed in support of the processing functions. 

The routine 9 label and flowchart cross-referencing provided with 
the descriptions are "key" points designed to show you where to locate 
the implementations in the program listings or flowcharts. 

Symbols 

This PLM uses the following symbols: 

Heavy black arrow indicates begin reading the diagram here. 
White arrow indicates data transfer from one area to another. 

Black arrow shows flow of logic or passing of control. 

Thin black arrow indicates pointer to an item. 
Dotted arrow indicates reference to an item. 

Off-page connector leads to a related diagram. 

• X Getting or Freeing main storage. 

Signifies passing of parameters. 
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Section 3. Program Organization 



This section describes the RENAME Command Processor routines and how 
they relate to each other. Flowcharts are included at the end of the 
discussion. 

Figure 3-1 shows the control module hierarchy. 



Hierarchy 



* This external service routine is common to several command processors dealing with data set 
structures residing on a direct access device. It is discussed briefly in this PLM. 
A more thorough presentation can be found in the Terminal Monitor Program and Service 
Routines Program Logic Manual, GY28-6770. 



Figure 3-1. Control Module Hierarchy 



1 IKJHEN (Includes IKJEHRr 

1 1 

^ 1 IKJPUTL 


1 1 

1 IKJDAIR 


1 — 1 

1 *IKJEHCIR 




IKJPARS 

1 IKJPUTL 


*IKJEHDEF 

1 IKJPUTL 




I IKJPTGT 


1 IKJPTGT 












1 IKJSCAN 
■ IKJEHCIR 
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IK JEHCIR— Catalog Information Routine 



Entry 
point 


IKJEHCIR. 


Operation 


Provides an interface between processing programs 

and the system catalog. 

Returns a list of various entries identified by a one 

byte code preceding the information. Format of the 

entry varies depending on the option requested. 

X f 01 - returns all DS names at a particular index. 

X'02 1 returns index names. 

Two other request codes are used by other routines. 


Data areas 
used by 
IKJEHGIR 


WRK1AREA. 


Routines 
called 


NONE. 


Registers 


Upon entry, register 1 points to CIRPARM. 

Standard linkage conventions. 

Upon exit, register 15 has a return code. 


Exits 


Normal return to caller. 



Cross reference 



FC* MO** 
AB 2-1 r 2- 2 



Note: FC* indicates Flowchart 
MO**indicates Method of 
Operation Diagram. 
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IK JEHDEF— Default Service Routine 



Entry 
point 


IKJDFLT. 


Operation 


Prefixes the user ID. 

Gets list of data set names from IKJEHCIR. 

Prompts users for choice of names from list. 

Checks users choice for validity. 

Adds name to make data set fully qualified. 

Returns fully qualified name to caller. 


Data areas 
used by 
IKJDFLT 


WRKAREA1. 


Routines 
called 


LINK to IKJPUTL LOAD and CALL to IKJEHCIR 
LINK to IKJPTGT LINK to IKJSCAN. 


Registers 


Upon entry 9 register 1 points to DFPL. 
Standard linkage conventions. 


Exits 


Normal return to caller. 



Cross reference FC MO 

AA 2-1 



RENAME 13 



IKJEHMSG— Message Control Section 



Entry 
points 


IKJEHMSG , IKJEHSMG. 


Operation 


Contains first and second level messages for the 
RENAME Command Processor* 


Data Areas 
used 


Table of messages (See Section 6) • 


Routines 
called 


NONE. 


Exits 


Normal return to caller. 


Registers 


Register usage remains the same as in the 
calling routine. 



Cross reference 



FC 


MO 


AA 


2-1 


AC 





IK JEHREN— Initialization Module 



Entry 
Point 


IKJEHREN. 


Operation 


Sets up initialization for processing. 


Data Areas 
used 


N/A. 


Routines 
called 


IKJEHRN2. 


Exits 


None. 


Registers 


Upon entry , register 1 points to the CPPL,. Standard 

linkage conventions. 

Upon exit to the TMP r register 15 has a return code. 
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IK JEHRN2- Control Module 



Entry 
point 


IKJEHRN2. 


Operation 


Checks for valid asterisk • 

Determines level of asterisk. 

Qualifies data set names. 

Sets options for IKJEHCIR. Gets data set 

names. 

(Additional calls may be necessary to obtain 

all data set names under an index structure. 

If so, a TTR and a volume serial number are 

returned for use in the next call.) 

Builds data set name using input and IKJEHCIR 

returned information. 

Creates alias or replaces member name of a PDS. 

Renames data set, catalogs new and uncatalogs 

old data set. 


Data areas 
used by 
IKJEHRN2 


CIRPARM, DAIRPARM (DAPL) , DAIR08 (DAPB08) , DAIR18 
(DAPB18) , WRK1AREA, DFLTPBLK (DFPB) , PARSPARM (PPL) , 
DFLTPARM (DFPL) , CPPL, IOPL. 


Routines 
called 


IKJPUTL, IKJEHCIR, IKJPARS, IKJDAIR, IKJEHDEF. 


Exits 


RETURN to TMP LOAD and CALL to IKJDAIR 
LINK to IKJPARS LOAD and CALL to IKJEHCIR 
LINK to IKJPUTL LINK to IKJDFLT (IKJEHDEF) 


Registers 


Upon entry, register 1 points to the standard (CPPL) 

parameter list. 

Standard linkage conventions. 

Upon exit to the TMP, register 15 has a return code. 



Cross reference 



FC 



MO 



AA 
AB 
AC 



2-1 
2-2 



RENAME 15 



Chart A£. IKJEHREN. RENAME Command Processing (1 of 3) 



Cross Reference : M.O. Diagram 2-1 



Start \ 

IKJEHREN ) 



CI 



GETMAIN 

and 
Initialize 



IKJEHRN2 ir 



IKJPARSE 

Parse 

Command 

Buffer 




Scan Data 
Set Name 




SCANDSN 



Scan Data 
Set Name 





IKJEHDEF 



Qualify 
Second Data 
Set Name 
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Chart AB, IKJEHREN. RENAME Command Processing (2 of 3) 



Cross Reference : M.O. Diagram 2-1 . 
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Chart AC* IKJEHREN. RENAME Command Processing (3 of 3) 



Cross Reference : M.O. Diagram 2-1. 



ALLOCDS 



IKJDAIR 
Allocate 
Data Set 




RENSEQDS 



Rename 
Data Set 



STOW 

Add New 
Alias 
Member Name 



CLOSEPDS v 



STOW 

Replace 
Member 
Name 



CLOSE 



Close 
Data Set 



CATNEWDS 




CATALOG 

Uncatalog 
Old Data 
Set Name 






UN/ 


v Successful >* 

J^° H5 

1 Warning J 
/ Message / 
/ to User / 






^LOCDS . 








* J5 




Yes 


IKJDAIR 

Unal locate 
Data Set 












' 


r 
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(Release 20.1) 



Section 4. Directory 



This section contains a routine directory organized alphabetically. 
Also included is a data area directory, arranged alphabetically. 
Flowchart and method of operation diagram references are provided , 
when applicable. 



Routine Directory 



Entry point 

or 
Routine name 


Load Module 


Control Section 


Cross Reference 


MO 


FC 


IKJEHCIR 


IKJEHCIR 


IKJEHCIR 


2-1 


AB 


IKJDFLT 


IKJEHDEF 


IKJEHDEF 


2-1 


AA 


IKJEHREN 


IKJEHREN 


IKJEHREN 


2-1 


AA 


IKJEHRN2 


IKJEHREN 


IKJEHRN2 


2-1 


AA,AB, 
AC 


IKJEHMSG 


IKJEHREN 


IKJEHMSG 


N/A 


A A, AC 


IKJEHPDL 


IKJEHREN 


IKJEHPDL 


N/A 


AA.AC 


IKJEHSMG 


IKJEHREN 


IKJEHMSG 


N/A 


N/A 
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Data Area Directory 



Data area and 
Subfields 


MO 


FC 


CIRPARM 


2-1 


AA,AB 


Command Buffer 


2-1 


AA 


CPPL 


2-1 


AA 


DAPB08 


2-1 
2-2 


AA 
AC 


DAPB18 


2-1 
2-2 


AA 
AC 


DAPL 


2-1 


AA,AC 


DFPB 


2-2 


AA 


DFPL 


2-2 


AA 


IKJEHCIR List 


2-2 


AB 


IKJPARMD 


2-2 


AA 


IOPL 


N/A 


AA,AC 


PPL 


2-1 

2-2 


AA 


PSCB 


N/A 


AA 
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Section 5. Data Areas 



This section contains the major data areas in the RENAME Command 
Processor. Pertinent information, such as which routine created the 
data area, which routine uses or updates the data area, and what the 
data area contains, is included. Where applicable, the data area is 
broken down into its component parts. 



CIRPARM— A List Including Work Areas for IKJEHCIR 



Constructed by: IKJEHREN. 
Used by: IKJEHREN, IKJEHCIR. 



Cross reference 



FC 

AA 
AB 



MO 
2-2 



Contents: CIRPARM describes a general work area. It is found by adding 
the contents of register 11 and the displacement value of 
CIRPARM in the cross reference table. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


CIRPARM 


1 byte 


Data set name /index name 
options on calling IKJEHCIR. 


1 (1) 


Unnamed 


3 bytes 


Not used. 


4 (4) 


NAMEPTR 


i\ bytes 


Points to index name or ttr. 


8 (8) 


VOLIDPTR 


4 bytes 


Points to volume identification. 


12 (C) 


WORK1PTR 


4 bytes 


Points to WRK1AREA. 


16 (10) 


WORK2PTR 


4 bytes 


Points to WRK2AREA. 
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Command Buffer 

Constructed by: TMP. 

Used by: IKJEHREN. 

Contents: Command buffer information is painted to by the CPPLCBUF in 
the CPPL. 




-2-byte length field 



2- byte offset 



Cross reference 



-Variable length area 
for command 



FC 
AA 



MO 
2-2 



CPPL — Command Processor Parameter List Passed to IKJEHREN By the TMP 



Constructed by: TMP. 

Used by: IKJEHREN. 

Contents: CPPL is a parameter list, 
upon entry. 



Cross reference FC MO 

AA 2-1 
It is pointed to by register 1 



Displacement 
Dec. Hex. 


Field 


Size 


Use 





(0) 


CPPLCBUF 


4 bytes 


Points to the 


command buffer. 


4 


(4) 


CPPLUPT 


4 bytes 


Points to the 
Table (UPT) . 


User Profile 


8 


(8) 


CPPLPSCB 


4 bytes 


Points to the 
Control Block 


Protected Step 
(PSCB) . 


12 


(C) 


CPPLECT 


4 bytes 


Points to the 
Control Table 


Environment 
(ECT) . 



22 RENAME 



TSO Command Processor PLM - Vol. 6. (Release 20.1) 



DAPB08 — Used to Allocate A Data Set 



Cross reference 



FC 

AA 
AC 



MO 

2-1 
2-2 



Constructed by: IKJEHREN. 

Used by: IKJDAIR. 

Contents: DAPB08 contains data set information found by adding the 

contents of register 11 and the displacement value of DAIR08 
in the cross reference table. 



Displacement 
Dec. Hex. 


Field 


Subfield Size 


Use 





(0) 


DA08CD 


2 bytes 


IKJDAIR entry code 
X , 0008 f . 


2 


(2) 


DA08FLG 


2 bytes 


Functions performed 
when return code=0. 


DA08FPE 1 byte 


Indicates function per- 
formed but an error is 
indicated in the 
return code. 


4 


(4) 


DA08DARC 


2 bytes 


Dynamic allocation 
return code. 


6 


(6) 


DA08CTRC 


2 bytes 


CATALOG routine 
return code. 


8 


(8) 


DA08PDSN 


4 bytes 


Points to dsname to 
be searched in DSE. 


12 


(C) 


DA08DDN 


8 bytes 


Ddname to be searched 
in DSE. 


20 


(14) 


DA08UNIT 


8 bytes 


Unit name requested. 


28 


(1C) 


DA08SER 


8 bytes 


Volume serial number. 


36 


(24) 


DA08BLK 


4 bytes 


Data set average 
record length. 


40 


(28) 


DA08PQTY 


4 bytes 


Primary space quantity. 


44 


(2C) 


DA08SQTY 


4 bytes 


Secondary space quantity. 
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DAPB08 — Used to allocate a 


data set 


( Cont . ) 




Displacement 
Dec Hex. 


Field 


Subfield 


Size 


Use 


48 (30) 


DA08DQTY 




4 bytes 


Directory block quantity. 


52 (34) 


DA08MNM 




8 bytes 


Member name. 


60 (3C) 


DA08PSWD 




8 bytes 


Password. 


68 (44) 


DA08DSP1 




1 byte 


Data set status flags. 


DA08SHR 
DA08NEW 
DA08MOD 
DA08OLD 




X'OS* data set is SHR. 
X , 04 t data set is NEW. 
X , 02 i data set is MOD. 
X'Ol' data set is OLD. 


69 (45) 


DA08DPS2 




1 byte 


Data set disposition. 


DA08KEEP 
DA08DEL 
DA08CAT 
DA08UCAT 




X w 08* disp is KEEP. 
X , 04 i disp is DELETE. 
X , 02 f disp is CATALOG. 
X - 01 f disp is UNCAT- 
ALOG. 


70 (46) 


DA08DPS3 




1 byte 


Data set conditional 
disposition. 


DA08KEP 
DA08DELE 
DA08CATL 
DA08UNCT 




X'OS' disp is KEEP. 
X , 04' disp is DELETE. 
X , 02 f disp is CATALOG. 
X'Ol' disp is UNCAT- 
ALOG. 


71 (47) 


DA08CTL 




1 byte 


Flags to control 
actions of IKJDAIR. 


DA08TRKS 
DA08ABKL 

DA08UID 

DA08RLSE 

DA08PERM 

DA08DMMY 




X"80 f Units are trks. 

X"40 f Space quantity 

in average rec. len. 

X l, 20 f Userid is to be 

prefixed. 

X f 10 f Release 

requested. 

X*08 f data set must be 

specifically unallo- 

catted. 

X*04' Dummy data set 

desired,. 


72 (48) 


unnamed 




3 bytes 


Reserved. 


75 (4B) 


DA08DSO 




1 byte 


Data set organization. 
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DAPB18 — A Parameter List Used When the Requested dsname or ddname is to be 
Unallocated 

Constructed by: IKJEHREN. 

Used by: IKJDAIR. 

Contents: DAPB18 contains data set information found by adding the 

contents of register 11 and the displacement value of DAIR18 
in the cross reference table . 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 


(0) 


DAI 8 CD 




2 bytes 


IKJDAIR entry code 

x'oois' . 


2 (2) 


DA18FLG 




2 bytes 


Functions to be performed 
when return code=0 . 


DA18FPE 


1 byte 


X^Q* indicates func- 
tion performed but an 
error is indicated by 
the return code. 


4 U) 


DAI 8D ARC 




2 bytes 


Dynamic allocation 
return code. 


6 (6) 


DA18CTRC 




2 bytes 


CATALOG routine 
return code. 


8 (8) 


DA18PDSN 




4 bytes 


Points to dsname to be 
searched in DSE. 


12 (C) 


DA18DDN 




8 bytes 


Ddname to be searched 
in DSE,. 


20 (1U) 


DA18MNM 




8 bytes 


Member name. 


28 (1C) 


DA18SCLS 




2 bytes 


SYSOUT class desired 
when unallocating a 
SYSOUT data set. 


30 (IE) 


DA18DPS2 




1 byte 


Data set disposition. 


DA18KEEP 
DA18DEL 
DA18CAT 
DA18UCAT 




X'QQ* Change disp. to 

KEEP. 

X 9 0*\ 9 Change disp. to 

DELETE . 

X , 02 t Change disp. to 

CATALOG. 

X'Ol 1 Change disp. to 

UNCATALOG. 
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DAPB18 (Cont. ) 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 


31 (IF) 


DA18CTL 




1 byte 


Flags for special 
IKJDAIR process inq. 


DA18UID 




X f 20 f Userid is to be 
prefixed to dsname. 


32 (20) 


DA18JBNM 




8 bytes 


Jobname . 



Cross reference 



FC MO 



AA 
AC 



2-1 
2-2 
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DAPL — Dynamic Allocation Parameter List 

Cross reference FC 

AB,AC 
Constructed by: IKJEHREN. 
Used by: IKJDAIR. 



MO 
2-2 



Contents: DAPL is a parameter List passed to IKJDAIR. This is a dsect 
map based on the address of DAI RP ARM. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


DAPLUPT 


4 bytes 


Points 


to the UPT. 


4 U) 


DAPLECT 


4 bytes 


Points 


to the ECT. 


8 (8) 


DAPLECB 


4 bytes 


Points 


to the ECB. 


12 (C) 


DAPLPSCB 


4 bytes 


Points 


to the PSCB. 


16 (10) 


DAPLDAPB 


4 bytes 


Points 
block. 


to the IKJDAIR parameter 
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DFPB— Default (IK JEHDEF) Parameter Block 



Constructed by: IKJEHREN. 

Used by: IKJEHDEF. 

Contents: DFPB is a parameter list. 
DFPL. 



Cross reference FC MO 

AA 2-2 
It is pointed to by DFPLDFPB in 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 


(0) 


DFPBCODE 




1 byte 


IKJEHDEF entry code. 


DFPBOC 
DFPB08 
DFPB04 
DFPBOO 




X f 0C f entry code 

•0C f • 

X'OS' entry code 

•08'. 

X'OU* entry code 

•ou*. 

X'OO' entry code 
•00'. 


1 (1) 


DFPBDSN 




3 bytes 


Points to data set 
length and data 
set name. 


a (4) 


DFPBCNTL 




1 byte 


IKJEHDEF control 
byte. 


DFPBUID 
DFPBRET 
DFPADD 
DFPBMSG 




Userid prefix in- 
dicator X f 20 f . 
Return added qual- 
ifier X'Oir. 
Add specified 
qualifier X f 02*. 
Issue msg X'Ol' . 


5 (5) 


DFPBPSCB 




3 bytes 


Points to PSCB. 


8 (8) 


DFPBLORC 




1 byte 


LOCATE return code 
returned here. 


9 (9) 


DFPBQUAL 




3 bytes 


Points to IKJEHDEF 
qualifier. 



28 RENAME 



TSO Command Processor PLM - Vol,. 6. (Release 20.1) 



DFPL— A Parameter List Passed to IKJEHDEF 

Constructed by: IKJEHREN. 

Used by: IKJEHDEF. 

Contents: DFPL is a parameter list, 
address of DFLTPARM. 



Cross reference FC MO 

AA 2-2 
This is a dsect map based on the 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


DFPLUPT 


4 bytes 


Points to the UPT. 


4 (4) 


DFPLECT 


4 bytes 


Points to the ECT. 


8 (8) 


DFPLECB 


4 bytes 


Points to the ECB. 


12 (C) 


DFPLDFPB 


4 bytes 


Points to the IKJEHDEF parameter 
block. 



RENAME 29 



IKJEHCIR — List of Information Returned to Caller 

Constructed by: IKJEHCIR. 

Used by: IKJEHREN. 

Contents: This list of information obtained from the system catalog is 
pointed to by WRK1AREA if asterisks are being processed. If 
asterisks are not being processed, this information is not 
available here. 

The list passed back by this module consists of various entries , each 
identified by a one- byte code. An entry is included in the list if 
its corresponding option has been requested. Options include the X'Ol* 
and X'02 i . 



Option 


Size and Use of Entry 


X'Ol' 




Two types of entries may be included in the returned list. 




07 
1 


dsname 
8 






This nine-byte entry represents a regular (simple) dsname 
entry found in the current block of the specified level of 
index of the catalog. 












02 
1 


gdgname 
8 


ttr 
3 


data 
4 






This sixteen-byte entry represents a generation data group 
(gdg) entry found in the specified level of index of 
the catalog. The ttr points to an index block that 
contains the simple dsname entries for the group. 
The generation number will be in the two's 
complement form as found in the dsname entries and must 
be converted back before using. The data field contains 
four bytes of information describing the characteristics 
of the group. 
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IKJEHCIR — List of Information Returned to Caller. (Cont.) 



Option 


Size and Use of Entry 


X f 02 f 










00 

1 


indexname 
8 


ttr 
3 






This is a twelve-byte entry that represents a simple quali- 
fier (index name) found at the specified level of index in 
the catalog. The ttr points to the first block of the named 
index. 


Link 










FF 

1 


ttr 
3 


volser 
6 






Link is a ten-byte entry terminating every list regardless 
of options specified. If the ttr is nonzero, it points to 
the next index block, and the volser is the CVOL it is on. 



Cross reference 



FC 
AB 



MO 
2-2 
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IKJPARMD— A Parameter List Returned from IKJPARS (Local IKJPARS Descriptor List) 

Constructed by: IKJPARS, IKJEHREN (format determined by RENAME macros). 

Used by: IKJEHREN. 

Contents: IKJPARMD contains data set information* It is pointed to by 
ANSPLACE. ANSPLACE is pointed to by PPLANS in the PPL. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 





(0) 


DSNAME1 


4 bytes 


Points to dsname. 


4 


(4) 




2 bytes 


Length of dsname. 


6 


(6) 




1 byte 


Flags for dsname information. 


7 


(7) 




1 byte 


Not used. 


8 


(8) 




4 bytes 


Points to member name. 


12 


(C) 




2 bytes 


Length of member name. 


14 


(E) 




1 byte 


Flags for member name 
information. 


15 


(F) 




1 byte 


Not used. 


16 


(10) 




4 bytes 


Points to password. 


20 


(14) 




2 bytes 


Length of password. 


22 


(16) 




1 byte 


Flags for password information. 


23 


(17) 




1 byte 


Not used. 


24 


(18) 


DSNAME2 


4 bytes 


Points to second dsname. 


28 


(1C) 




2 bytes 


Length of second dsname. 


30 


(IE) 




1 byte 


Flags for second dsname 
information. 


31 


(IF) 




1 byte 


Not used. 


32 


(20) 




4 bytes 


Points to member name. 
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IKJPARMD (Cont.) 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


36 


(24) 




2 bytes 


Length of member name. 


38 


(26) 




1 byte 


Flags for member name 
information. 


39 


(27) 




1 byte 


Not used. 


40 


(28) 




4 bytes 


Points to password. 


44 


(2C) 




2 bytes 


Length of password. 


46 


(2E) 




1 byte 


Flags for password information. 


47 


(2F) 




1 byte 


Not used. 


48 


(30) 


RENTYPE 


2 bytes 


Used for keyword specifications. 

indicates no keyword specified. 

1 indicates f ALIAS* keyword 
specified. 



Note: DSNAMEl, DSNAME2, and RENTYPE are 

referenced by labels, not displacements, 



Cross reference 



FC 
AA 



MO 
2-2 
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IOPL — Input/Output Parameter List 

Constructed by: IKJEHREN. 



Contents: IOPL is a parameter list passed to IKJPUTL. It is a dsect 
based on address of IOPARM. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 




(0) 


IOPLUPT 


4 bytes 


Points to the UPT. 




H (4) 


IOPLECT 


4 bytes 


Points to the ECT. 




8 (8) 


IOPLECB 


4 bytes 


Points to the ECB, 




12 (C) 


IOPLIOPB 


4 bytes 


Points to the I/O 
parameter block. 










Cross reference FC 


MO 








AA,AC N/A 
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PPL — A Parameter List Passed to IKJPARS 

Constructed by: IKJEHREN. 
Used by: IKJEHREN , IKJPARS. 



Cross reference 



FC 
AA 



MO 

2-1 
2-2 



Contents: PPL is a parameter list found by adding the contents of 

register 11 and the displacement value for PARSPARM in the 
cross reference table. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 





(0) 


PPLUPT 


4 bytes 


Points 


to 


the 


UPT. 


4 


(4) 


PPLECT 


4 bytes 


Points 


to 


the 


ECT. 


8 


(8) 


PPLECB 


4 bytes 


Points 


to 


the 


ECB. 


12 


(C) 


PPLPCL 


4 bytes 


Points 


to 


the 


PCL. 


16 


(10) 


PPLANS 


4 bytes 


Points 


to 


the 


answer place. 


20 


(14) 


PPLCBUF 


4 bytes 


Points 


to 


the 


command buffer. 


24 


(18) 


PPLUWA 


4 bytes 


Points 


to 


the 


user work area. 
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PSCB— Protected Step Control Block 

Constructed by: LOGON. 
Used by: IKJEHREN. 



Cross reference 



FC 
AA 



iyio 

N/A 



Contents: PSCB contains user attribute and accounting data. It is 
pointed to by the CPPLPSCB in the CPPL. 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 


(0) 


PSCBUSER 




7 bytes 


User id. 


7 (7) 


PSCBUSRL 




1 byte 


Length of userid. 


8 (8) 


PSCBGPNM 




8 bytes 


Esoteric group 
name. 


16 (10) 


PSCBATR1 




1 byte 


User attributes 


PSCBCTRL 




X f 80 f indicates 
OPERATOR command 
user. 


PSCBACCT 




X^O* indicates 
ACCOUNT command 
user . 


PSCBJCL 




X f 20 f indicates 
SUBMIT command 
user. 






Bits 3-15 are 
reserved for IBM 
use. 


17 (11) 


unnamed 




1 byte 


Reserved. 


18 (12) 


PSCBATR2 




1 byte 


User attributes 
(for installation 
use) . 


19 (13) 


unnamed 




1 byte 


Reserved. 


20 (14) 


PSCBCPU 




4 bytes 


Cumulative CPU 
time of session. 


24 (18) 


PSCBSWP 




4 byres 


Cumulative time 
resident in 
region . 
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PSCB — Protected Step Control Block (Cont.) 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 


28 (1C) 


PSCBLTIM 




4 bytes 


Actual LOGON time 
of day. 


32 (20) 


PSCBTCPU 




4 bytes 


Total CPU time 
(accounting per- 
iod) . 


36 (24) 


PSCBTSWP 




4 bytes 


Total time resi- 
dent (accounting 
period) . 


40 (28) 


PSCBTCON 




4 bytes 


Total time connec- 
ted (accounting 
period) . 


44 (2C) 


PSCBTCOl 




4 bytes 


Additional field 
for accounting 
period. 


48 (30) 


PSCBRLGB 




4 bytes 


Points to relogon 
buffer. 


52 (34) 


PSCBUPT 




4 bytes 


Points to UPT. 


56 (38) 


PSCBUPTL 




2 bytes 


Length of UPT. 


58 (3A) 


unnamed 




6 bytes 


Reserved for IBM. 


64 (40) 


PSCBU 




8 bytes 


Reserved for 
installation use. 
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Section 6. Diagnostic Aids 



This section contains a register summary for the control sections 
IKJEHREN and IKJEHREN2 and the messages dealing with RENAME command 
processing. 



Register Summary 



Register 


Usage 





Used as a work register. 


1 


Used as a parameter register, and as a work register. 


2 


Used initially to save the parameter list; then as a work 
register. 


3 


Used in 'EXEC MVC f as a pointer to "TO AREA' and as work 
register. 


4 


Used in f EXEC MVC" as a pointer to f FR0M AREA" and as work 
register. 


5,6 


Used as a work register. 


7 


Not used. 


8 


Used as an index register for IKJEHCIR workarea. 


9 


Used as a base register for IKJPARS DSECT. 


10 


Used as a work register. 


11 


Used as a base register for GETMAIN dsect common. 


12 


Used as a base register for IKJEHREN. 


13 


Used as a save area register. 


14 


Used as a link register. 


15 


Used as a branch register, return code register. 
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Messages 



Issued by 


Message ID 


Message Text 


IKJEHREN 


IKJ58201I 


DATA SET dsname NOT IN CATALOG 


IKJEHREN 


IKJ58202I 


NOT ENOUGH MAIN STORAGE TO EXECUTE COMMAND 


IKJEHREN 
IKJEHREN 


IKJ58203I 
#IKJ58203I 


DATA SET dsname NOT RENAMED # 
EXPIRATION DATE HAS NOT PASSED* 
SYSTEM OPERATOR DID NOT AUTHORIZE ACCESS 
TO DATA SET 


IKJEHREN 
IKJEHREN 


IKJ58204I 
#IKJ58204I 


DATA SET dsname NOT USABLE* 
OPEN ERROR CODE xxxx 


IKJEHREN 
IKJEHREN 


IKJ58205I 
#IKJ58205I 


INVALID USE OF ALIAS KEYWORD* 
ALIAS VALID ONLY FOR MEMBERS OF 
PARTITIONED DATA SETS 


IKJEHREN 
IKJEHREN 
IKJEHREN 
IKJEHREN 
IKJEHREN 


IKJ58206I 
#IKJ58206I 
#IKJ58206I 
#IKJ58206I 
#IKJ58 206I 


INVALID USE OF * IN dsname* 
MORE THAN ONE * IN DATA SET NAME 

* NOT VALID AS FIRST INDEX LEVEL 

DATA SET NAMES USED * AT DIFFERENT LEVELS 

* CANNOT BE USED WITH MEMBER 


IKJEHREN 
IKJEHREN 
IKJEHREN 
IKJEHREN 
IKJEHREN 


IKJ58207I 
#IKJ58207I 
#IKJ58207I 
#IKJ58207I 
#IKJ58207I 


UNABLE TO RENAME DATA SET dsname* 

RENAME ERROR CODE xxxx 

BLDL ERROR CODE xxxx 

STOW ERROR CODE xxxx 

DATA SET RESIDES ON MULTIPLE VOLUMES 


IKJEHREN 
IKJEHREN 


IKJ58208I 
#IKJ58208I 


INVALID USE OF COMMAND* 

BOTH MEMBERS MUST BE FROM THE SAME 

PARTITIONED DATA SET 


IKJEHREN 


#IKJ58208I 


A DATA SET CANNOT BE RENAMED TO A 
MEMBER NAME 


IKJEHREN 


#IKJ58208I 


A MEMBER NAME CANNOT BE RENAMED TO 
A DATA SET 


IKJEHREN 


IKJ58209I 


DATA SET NAME IS REQUIRED WHEN MEMBER 
member IS SPECIFIED 


IKJEHREN 
IKJEHREN 


IKJ58210I 
#IKJ58210I 


DATA SET RENAMED BUT dsname STILL CATALOGED* 
CATALOG ERROR CODE xxxx 


IKJEHREN 
IKJEHREN 


IKJ58211I 
#IKJ58211I 


DATA SET dsname NOT ALLOCATED, 

TOO MANY DATA SETS* 

USE FREE COMMAND TO FREE UNUSED DATA SETS 
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MESSAGES (Cont. ) 



Issued by 


Message ID 


Message Text 


IKJEHREN 
IKJEHREN 


IKJ58212I 
#IKJ58212I 


DATA SET dsname NOT ALLOCATED r 
DATA SET NOT ON VOLUME* 
CATALOG INFORMATION INCORRECT 


IKJEHREN 
IKJEHREN 


IKJ58 213I 
#IKJ58213I 


DATA SET dsname NOT ALLOCATED, 

REQUIRED VOLUME NOT MOUNTED* 

VOLUME OR CVOL NOT ON SYSTEM AND CANNOT BE 

ACCESSED 


IKJEHREN 

IKJEHREN 
IKJEHREN 


IKJ58214I 

#IKJ58214I 
#IKJ58214I 


DATA SET dsname NOT ALLOCATED, 
SYSTEM OR INSTALLATION ERROR* 
DYNAMIC ALLOCATION ERROR CODE xxxx 
CATALOG I/O ERROR 


IKJEHREN 
IKJEHREN 


IKJ58215I 
#IKJ58215I 


DATA SET dsname ALREADY IN USE, TRY LATER* 
DATA SET IS ALLOCATED TO ANOTHER JOB OR 
USER 


IKJEHREN 


IKJ58216I 


PROPER PASSWORD NOT SUPPLIED FOR dsname 


IKJEHREN 


IKJ58217I 


SPECIFIED MEMBER NOT IN DATA SET dsname 
(member) 


IKJEHREN 


IKJ58218I 


INVALID DATA SET NAME, •dsname' EXCEEDS 
44 CHARACTERS 


IKJEHREN 


IKJ58219I 


NO DATA SETS FOUND TO MATCH * IN dsname 


IKJEHREN 


IKJ58220I 


DATA SET dsname NOT ON A DIRECT ACCESS 
DEVICE, NOT SUPPORTED 


IKJEHREN 


IKJ58221I 


DATA SET NAME dsname RESIDES ON MULTIPLE 
VOLUMES, NOT SUPPORTED 


IKJEHREN 


#IKJ58222I 


DATA SET dsname ALREADY EXISTS 


IKJEHREN 


IKJ58223I 


MEMBER member ALREADY EXISTS 


IKJEHREN 


IKJ58224I 


MEMBER SPECIFIED BUT dsname NOT A PARTITIONED 
DATA SET 
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MESSAGES (Cont. ) 



Issued by 


Message ID 


Message Text 


IKJEHREN 
IKJEHREN 
IKJEHREN 
IKJEHREN 


IKJ58225I 
#IKJ58225I 
#IKJ58225I 
#IKJ58225I 


COMMAND SYSTEM ERROR+ 
PARSE ERROR CODE xxxx 
DAIR ERROR CODE xxxx 
DEFAULT ERROR CODE xxxx 


IKJEHREN 


IKJ58226I 


NO SPACE IN DIRECTORY FOR ALIAS 


IKJEHREN 
IKJEHREN 


IKJ58227I 
#IKJ58227I 


DATA SET NAME dsnarae WILL CREATE INVALID 
CATALOG STRUCTURE* 

A QUALIFIER CANNOT BE BOTH AN INDEX AND THE 
LAST QUALIFIER OF A DATA SET NAME 


IKJEHREN 
IKJEHREN 


IKJ58228I 
#IKJ58228I 


UNABLE TO CATALOG dsname* 
CATALOG ERROR CODE xxxx 


IKJEHREN 
IKJEHREN 
IKJEHREN 


IKJ58229I 
#IKJ58229I 
#IKJ58229I 


DATA SET dsnarae NOT ALLOCATED* 

INVALID UNIT IN USER ATTRIBUTE DATA SET 

NO UNIT AVAILABLE 


IKJPARS 
IKJPARS 
IKJPARS 
IKJPARS 


IKJ56700A 
IKJ56700A 
IKJ56700A 
IKJ56700A 


ENTER OLD DATA SET NAME- 
ENTER NEW DATA SET NAME- 
ENTER NAME OF DATA SET TO BE RENAMED- 
ENTER NEW NAME TO BE GIVEN THE DATA SET- 



# used to 
indicate 
second level 
messages for 
documentation 
only. 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/360 Operating System; Program Logic 
Manual Master Index , Order No, GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 



ACCOUNT command 36 
ALIAS keyword 32 
alias 5,7,9,15 
ANSPLACE 

reference point for IKJPARMD 31 
answer place, points to the 33 
arrow 

black 10 

dotted 10 

heavy black 10 

thin black 10 

white 10 
asterisk 5 

qualifier 5 
asterisks 12 



base register 37 

buffer, points to re log on 35 

BLDL routine 5 

branch register 57 

catalog 

information routine 12 

routine return code 25 
characteristics 
CIRPARM 

data area 21 

in data area directory 2 
CLOSE routine 5 

codes, preceding information 12 
command 5,7 

buffer 22 

name RENAME 7 

processor 5, 6, 9, 11 
parameter list 22 
conditional disposition, 
control 

information 9 

module, IKJEHRN2 15 
hierarchy 12 

section 14,19 

sections, main program 6 
CPPL 

data area 22 

in data area directory 20 
CPPLECB 

field in CPPL 22 
CPPLECT 

field in CPPL 22 
CPPLPSCB 

field in CPPL 22 



data set 24 



CPPLUPT 

field in CPPL 22 
cumulative CPU time 34 
current block, in index level 29 
CVOL 30 



DAIRPARM 

data area 15 
DAIR08 15 

data area 23 
DAIR18 15 

data area 15 
DAPB08 

data area 23 
in data area directory 20 
DAPB18 

data area 25 

in data area directory 20 
DAPL 

data area 27 

in data area directory 20 
DAPLDAPB 

field in DAPL 26 
DAPLECE 

field in DAPL 26 
DAPECT 

field in DAPL 26 
DAPLPSCB 

field in DAPL 26 
DAPLUPT 

field in DAPL 26 
data 

areas 12,13,14,15,20 
CIRPARM 21 
command buffer 22 
CPPL 22 
DAPB08 23 
CAPB18 25 
DAPL 27 
DFPB 28 
DFPL 29 
directory 20 
IKJEHCIR list 30 
IKJPARMD 32 
IOPL 34 
FPL 35 
PSCB 36 
data sets 

allocates 5 
catalogs 15 
closes 5 
disposition 24 
infcrmaticn 24 
names 5 
opens 5 

organization 24 
partitioned 5 
sets, sequential 6 
transfer of 10 
DA08ABKL 

field in DAPB08 24 
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DA08BLK 

field 
DA08CAT 

f2)ld 
DA08CATL 

field 
DA08CD 

field 
DA08CTL 

field 
DA08CTRC 

field 
DA08DARC 

field 
DA08DDN 

field 
DA08DEL 

field 
DA08DELE 

field 
DA08DMMY 

field 
DA08DPS2 

field 
DA08DPS3 

field 
DA08DQTY 

field 
DA08DSO 

field 
DA08DSP1 

field 
DA08FLG 

field 
DA08FPE 

field 
DA08KEEP 

field 
DA08KEP 

field 
DA08MNM 

field 
DA08MOD 

field 
DA08NEW 

field 
DA08OLD 

field 
DA08PDSN 

field 
DA08PERM 

field 
DA08PQTY 

field 
DA08PSWD 

field 
DA08RLSE 

field 
DA08SER 

field 
DA08SHR 

field 
DA08SQTY 

field 
DA08TRKS 

field 
DA08UCAT 

field 



in DAPB08 23 

in DAPB08 24 

in DAPB08 24 

in DAPB08 23 

in DAPB08 24 

in DAPB08 23 

in DAPB08 23 

in DAPB08 23 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 23 

in DAPB08 23 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAPB08 24 

in DAP308 23 

in DAPB08 24 

in DAPB08 23 

in DAPB08 24 

in DAPB08 24 

in DAPB08 23 

in DAPB08 24 

in DAPB08 23 

in DAPB08 24 

in DAPB08 24 



DA08UID 

field in DAPB08 24 
DA08UNCT 

field in DAPB08 24 
DA08UNIT 

field in DAPB08 23 
DAI 8 CAT 

field in DAPB18 25 
DAI 8 CD 

field in DAPB18 25 
DA18CTL 

field in DAPB18 26 
DA18CTRC 

field in DAPB18 25 
DA18DARC 

field in DAPB18 25 
DA18DDN 

field in DAPB18 25 
DA18DEL 

field in DAPB18 25 
DA18DPS2 

field in DAPB18 25 
DA18DSN 

field in DAPB18 25 
DA18FLG 

field in DAPB18 25 
DA18FPE 

field in DAPB18 25 
DA18JENM 

field in DAPB18 26 
DA18KEEP 

field in DAPB18 25 
DA18MNM 

field in DAPB18 25 
DA18SCLS 

field in EAPB18 25 
DA18UCAT 

field in DAPB18 25 
DA18UIE 

field in DAPB18 26 
ddname 23 

DEFAULT service routine 13 
DELETE, data set disposition 24 
description list, PARSE 32 
DFLTPELK 

data area 15 
DFLTPARM 

data area 15 
DFPB 

data area 28 

in data area directory 20 
DFPECCEE 

field in DFPB 28 
DFPBCNTL 

field in DFPB 28 
DFPBLORC 

field in DFPB 28 
DFPBMSG 

field in DFPB 28 
DFPBQUAL 

field in DFPB 28 
DFPBRET 

field in DFPB 28 
DFPBUID 

field in DFPB 28 
DFPB 08 

field in DFPB 28 
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DFPB 4 

field in DFPB 28 
DFPBOO 

field in DFPB 28 
DFPL 

data area 29 

in data area directory 2 
DFPLDFPB 

field in DFPL 29 
DFPLECB 

field in DFPL 29 
DFPLECT 

field in DFPL 29 
DFPLUPT 

field in DFPL 29 
diagnostic 

aids 39 

messages 7 
diagram 9,10 

diagrams, introduction tc the 9 
direct access device 5 
directory, data area 20 
disposition, data set 24 
DSE 
DSNAME1 

field in IKJPARMD 32 
DSNAME2 

field in IKJPARMD 32 
dynamic allocation 

interdace routine 5 

parameter list 27 

return code 23,25 



ECB 



points to the 27,29 
ECT 

points to the 22,27,29 
Entry point 

IKJEHCIR 12 

IKJDFLT 13 

IKJEHMSG 14 

IKJEHSMG 14 

IKJEHRN2 15 
entry code 28 
environment control table 22 

final output 11 
flags 24,32 
flow 

of data 9 

of logic 10 
flowchats 16-18 

fully qualified data set name 9 
functional descriptions 9 
functions 5 

gdgname 30 
generation 

data group 30 

number 3 

hierarchy 11 

IKJDAIR parameter blcck 23 , 25, 27 
IKJEHCIR 12,30 
IKJEHMSG 14 
IKJEHPDL 6 
IKJEHREN 14 



IKJEHRN2 15 

IKJEHSMG 14 

IKJPARS 5 , 9 

IKJPUTL service routine 13 

IKJSCAN service routine 13 

index 

name 21,30 

name options 30 
implementation steps 10 
index 43 

levels 5,6 

names 

register 39 

structure 
information 30 
informational messages 7 
initialization 

module 14 
input 6 

input/cut put parameter list 34 
interface 12 

introduction to the diagrams 9 
IOPARM 
IOPL 

data area 34 

in data area directory 20 
IOPLECE 

field in IOPL 34 
IOPLECT 

field in IOPL 34 
IOPLIOPB 

field in IOPL 34 
IOPLUPT 

field in IOPL 34 
I/O parameter block 



keep, data set disposition 25 
keywcrd 33 

label 10 

length of dsname 32 

of member name 32 

of password 32 
link register 39 
list 12 
load module 6 
locate rcutine 5 

return code 28 
logic 9 
logon time 36 



member 

name 24 

flags 33 
length 33 
message 

control section 14 

text 40 
messages 

diagnostic 7 

first level 14 

informational 7 

prompting 7 

sec end level 14 
method of operation diagram 9 
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name 5 

names 13 

new, data set disposition 24 

non-member name changes 9 



off -page connector symbol 10 

old, data set disposition 24 

operand, optional 7 

operands, optional 7 

operands , positional 7 

operation 12-15 

operational considerations 6 

operator command 35 

option 12 

optional operands 7 

organization of the diagrams 10 



parameter 

list 22,25,27,29,34 

register 39 
partitioned data set 5 
PARSE routine 5 
PARSPARM 

data area 15 
password 32,33 

flags 32 

length 32,33 
PDS member 9 

physical characteristics 6 
positional operands 7 
PCL, points to 34 
PPL 

data area 35 

in data area directory 2 
PPLANS 

field in PPL 34 
PPLCBUF 

field in PPL 34 
PPLECB 

field in PPL 34 
PPLECT 

field in PPL 34 
PPLPCL 

field in PPL 34 
PPLUPT 

field in PPL 34 
PPLUWA 

field in PPL 34 
processing 

block 10 

functions 10 

program 12 
primary space guantity 23 
processor 
program 

listings 10 

organization 11 
programming functions 10 
prompting messages 7 
Protected Step Control Block 36 
protection key 6 
PSCB 

data area 36-37 

in data area directory 20 
PSCBACCT 

field in PSCB 36 



PSCEATTR1 

field in PSCB 36 
PSCBATR2 

field in PSCB 36 
PSCBCTPL 

field in PSCB 36 
PSCBCPO 

field in PSCB 36 
PSCBGPNM 

field in PSCB 36 
PSCBJCL 

field in PSCB 36 
PSCBLTIM 

field in PSCB 37 
PSCBLGE 

field in PSCB 37 
PSCBSWP 

field in PSCB 36 
PSCETCCN 

field in PSCB 37 
PSCETC01 

field in PSCB 37 
PSCETCPU 

field in PSCB 37 
PSCBTSWP 

field in PSCB 37 
PSCBU 

field in PSCB 37 
PSCBUSER 

field in PSCB 36 
PSCBUSRL 

field in PSCB 37 
PSCBUPT 

field in PSCB 37 
PSCEUPTL 

field in PSCB 37 
PUTLINE service routine 5 



qualifier 

qualifiers, asterisk < 
primary space 23 
secondary space 23 
directory block 24 



region 6 
register 

base 39 

branch 39 

index 39 

link 39 

parameter 39 

return code 39 

summary 39 

work 39 
RENAME command 5,6,7 

processing 16-18 

processing summary 9 

processor 5,6,7 

string 7 

macro 5 

parameter lists 49 
RENTYPE 33 
return 

code 23,25 

catalog routine 23,25 
dynamic allocation 23,25 
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routine 

directory 19 

names 19 



second level messages 14 

secondary space quantity 23 

Section 1. Inroduction 5-7 

Method of Operation 9-10 
Program Organization 11-18 
Directory 19-20 
Data Areas 21-37 
Diagnostic Aids 39-42 
6 



TMP 


6 






total 








CPU time 36 






time 


connected 


36 




time 


resident 


35 


TRKS 


24 






TTR 


15 







Section 2. 

Section 3. 

Section 4. 

Section 5. 

Section 6. 



sequential data set 

service routine 5 

SHR, data set status 24 

SMSGAREA, entry point 14 

space quantity 23 

status 

SUBMIT command 35 

summary, RENAME command processing 

SYSOUT data set 25 



terminal 

monitor program 
time 

CPU time 35 

cumutative 36 
CPU 35 

logon 36 

total 36 

connected 36 

CPU 36 



unallocated data set 6 
uncatalogs 6 
unit name 23 
units , TRKS 24 
user attributes 36 
USERID 35 

length 35 
UPT, pcints to the 27,29,31,34 



valid asterisk 15 
validity 13 
verifies data set 5 
VOLID PTR, 

field in CIRPARM 21 

number 23 
volume identification 21 
volume serial 
VTOC 5 



work area 






work register 


39 


W0RK1PTR 


21 




WORK2PTR 


21 




WRKAREA1 


12,13 




WRK1AREA 


21 




WRK2AREA 


21 
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Inputs 





Register 1 








\ CPPL 




Entry from mmA 


c 








- > 
















c 


Command Buffer 








RENAME 















Descriptions 



Routine Label FC 



1 The PARSE subroutine syntax checks the command. 
Storage is obtained for work areas. 

2 A user id is prefixed if necessary. The data set name is scanned for asterisks. 

If none, prompting is done for any necessary qualification of data set names by the 
default routine. (See note 1 ) C . Then operation continues from step 4. 
If asterisks are found, they are checked to ensure that they occur in the same 
relative position within the fully qualified data set names. 

3 If asterisks were found, the catalog information routine is used to look up 
candidates for renaming. 

4 The new data set names are built in preparation for the renaming operation. 

5 Allocation is done to make use of the OS enqueuing facility which ensures that the 
data set is not renamed while some other user is using it. (Also, this enables the 
OPEN and CLOSE operation for partitioned members.) 



Member 

_L_ 



Data Set 



© 



OPEN and BLDL are 
used to open the PDS. 



STOW is used to 
7 ) assign the alias or 
new member name. 



© 



The data set is 
8 } closed and 
unallocated. 



IKJEHRN2 



MEMBRTST 



CLOSEPDS 



AC 



AC 



& 
£ 



RENAME is used 
to rename the 
data set. 



CATALOG is used 
to catalog new and 
uncatalog old. 



Repeat from step 4, 
O I if applicable. 



IKJPARS 



IKJEHRN2 



IKJEHDEF 



IKJEHRN2 



IKJEHCIR 



IKJEHRN2 



IKJEHRN2 



SCANDSN 



GOODSCAN 



AA 



AA 



AA 



ALLOCDS 



RENSEQDS 



CATNEWDS 



UNALLOCDS 



AC 



AC 



RENAME 



£ 



1 Build PPL for syntax check. 



2 Scan for asterisks and validity 
check asterisks. 



3 Build catalog information 
parameter list. 



4 Build new data set names. 



5 Allocate data set. Is this rename 
member or rename data set ? 



Member 



Data Set 



© 
© 



Open and verify 



Assign alias or 
replace member 
name. Then close 
and unal locate. 

Process next 
step (2). Return 
when all processed. 



A 



Rename data set. 



A 



Catalog new; 
» i uncatalog old. 
Una I locate. 



(h 



Process next 
data set. Return 
when all 
processed . 



Parse 




Entered at step 
5 to allocate 
data set 



Entered at step 
7 to unal locate 



A-G 



Note: See Diagram 2-2 for expansions of parameter lists. 



Note 1 : When an asterisk represents a middle level pt. index 
(e.g., userid . * . DATA ) , a check is made to ensure 
that a candidate for renaming does, in fact represent 
a valid data set. 



Diagram 2-1. RENAME Command Processing 
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J\ Pa ram 


eter list passed 


,to PARSE 




Reg 1 






( 


PPL 






PPLUPT 

PPLECT 

PPLECB 

PPLPCL 

PPLANS 

PPLCBUF 

PPLUWA 


| UPT 




| ECT 


| DELCPECB 


j PCL 


A Answer place 


4 Command Buffer 


f validity user work area 









D Parameters returned from PARSE — IKJPARMD 



DSNAME1 


1 


data set name 








length of ds name 


flags 






\ 


member name (0 if missir 


ig) 






length of member name 


flags 






4 


password (0 if missing) 








length of password 


flags 


lll^llilllllllj 


DSNAME2 


4 


data set name 








length of ds name 


flags 






4 


member name (0 if missir 


*) 






length of member name 


flags 


IllliSllillll 




4 


password (0 if missing) 








length of password 


flags 



















One for each 
data set name 



Characters 

A0 = No keyword 
specified 

Al -ALIAS 
keyword 
specified 



RENTYPE 



£. Parameter list passed to Default Service Routine 
DFPL 




DFPLUPT 
DFPLECT 

DFPLECB 
DFPLDFPB 


| UPT 




| ECT 


4 DELCPECB 


| DFPB 


( 


DFPB 




DFPBCODE 
DFPBCNTL 

DFPBLORC 


IKJEHDEF 
entry code 


f data set name and length 


DFPBDSN 
DFPBPSCB 
DFPBQUAL 


IKJEHDEF 
control byte 


4 PSCB 

l 


Locate entry code 
returned here 


| IKJEHDEF qualifier 









J^\ Parameter list passed 


to Catalog Information Routine 




Reg 1 


















CIRPARM 

NAMEPTR 

VOLIDPTR 

WORKIPTR 

WORK2PTR 

















£ Parameter list returned by the Catalog 
WRK1AREA 


Information Routine 














• 



r Parameter list passed to DAIR 

DAPL list for DAIR 



DAPLUPT 

DAPLECT 

DAPLECB 

DAPLPSCB 

DAPLDAPB 



DAPB08 (Allocation) 



DA08CD 

DA08DARC 

DA08PDSN 

DA08DDN 
DA08UNIT 

DA08SER 

DA08BLK 
DA08PQTY 
DA08SQTY 
DA08DQTY 

DA08MNM 
DA08PSWD 



DA08DSP1- 
DA08DSP2- 
DA08DSP3- 






|^:||p||||| p^#^^ 



DA08FLG 
DA08CTRC 



G DAPB18 (Una I location) 

DA18CD 



DA18DARC 
DA18PDSN 

DA18DDN 

DA18MNM 

DA18SCLS 

DA18JBNM 



i 



DA08CTL 
DA08DSO 



DA18FLG 
DA18CTRC 



-DA18DPS2 
-DA18CTL 



Diagram 2-2. RENAME Parameter Lists 
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Part 4: RUN Command Processor 




RON 1 
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Section 1. Introduction 



The RUN Command Processor is used to build an in-storage list of 
commands to compile 9 load and execute a specified source program. 
This list of commands is placed on the input stack that describes the 
currently active sources of input. Upon return to the Terminal Monitor 
Program (TMP) # the next GETLINE (IKJGETL) issued by the TMP results 
in obtaining the first command in the list. 

Functions 

The RUN Command Processor performs the following functions: 

Obtains the command name from the command buffer. 

Scans and syntax checks the command. 

Determines data set name and verifies it. 

Determines data set type. 

Builds in-storage list. 

Builds Input Source Descriptor (table describing the in-storage 
list) . 

Makes the list available for input. 

Issues appropriate messages. 

Environment 

The RUN Command Processor operates in a TSO user's region under the 
protection key assigned to that region. The processor's static 
instructions and data requires about 5K of storage,. Additional storage 
is needed for the TSO service routines used by this processor. 
Definitive information on space needed for TSO and the RUN Command 
Processor can be obtained in the Storage Estimates SRL , GC 2 8-6 551. 
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Physical Characteristics 



The RUN Command Processor consists of one load module IKJEFROO. It 
has an alias of RUN. 

IKJEFROO is the main processing program and handles all the major 
functions of RUN, 

Operational Considerations 

RUN communicates with a terminal through the TSO PUTLINE service routine 
(IKJPUTL). 

The TSO routines IKJPARS and IKJDAIR also are required. IKJPARS 
scans and syntax checks the command. It checks the user f s data ^et 
type. IKJDAIR is used to allocate a data set and verify the specified 
data set name. 

Input is the standard Command Processor Parameter List (CPPL) . Upon 
receiving control r register 1 points to the CPPL. 

The command buffer contains the RUN command and its operands.. 

The RUN command consists of the following: 

• The command name RUN. 

• The optional keyword parameters (See the Command Language 
Reference . GC28-6732K 

Messages are printed at the terminal. These include diagnostic 
messages 9 informational messages, and prompting messages. 
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Section 2. Method o£ Operation 



This section describes the logic of the RUN command processor. It 
emphasizes the flow of data and control information through buffers 
and tables and contains detailed functional descriptions of the RUN 
operation. 

Program logic information for the TMP and the TSO service routines 
used by the RUN command processor is contained in the Terminal Monitor 
Program and Service Routines Program Logic Manual , GY28-6770. 

RUN Command Processing Summary 

When the RUN command processor receives control from the TMP the command 
is scanned and syntax checked. The data set name and data set type 
are processed. The specified data set name is verified. An in-storage 
command list and a table describing the List Source Descriptor is 
built. The command list is made available for input. 

Introduction to the Diagrams 

The remainder of the section consists of the method of operation 
diagrams for the RUN command processor. Some of the diagrams contain 
a cross-reference table to help you locate the corresponding flowcharts 
and applicable sections of the program listings. 

The method of operation diagrams are designed to serve you in 
different ways: 

• Initially 9 they quickly provide you with an understanding of the 
programming functions of the command processor. 

• They show how the code supports the functions to be performed. 

• They provide "pointers" to the actual implementations (via cross 
references to the flowcharts or program listings). 

You can use them to become familiar with the system, or later 9 to 
find your way to specific implementation points in the program listings 
or other areas of the PLM. 



Organization of the Diagrams 



Diagearo 2-1 shows the overview of the Command Processor. Diagram 2- 
2 shows how to build a RUN list. 
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The processing block lists the functions performed in producing final 
output. 

The descriptions provided at the left of the diagram list the major 
implementation steps performed in support of the processing functions. 

The routine label and flowchart cross-referencing provided with the 
descriptions are "key* points designed to show you where to pick up 
the implementations in the program listings or flowcharts. 

Symbols 

This PLM uses the following symbols : 

Heavy black arrow indicates begin reading the diagram here. 
White arrow indicates data transfer from one area to another. 




Black arrow shows flow of logic or passing of control. 



-*• Thin black arrow indicates pointer >o an item. 



-»- Dotted arrow indicates reference to an item. 



u 



Off-page connector leads to a related diagram. 



X Getting or Freeing main storage. 

Signifies passing of parameters. 
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Section 3. Program Organization 



This section describes the RUN command processor routines and how they 
relate to each other. Flowcharts are included following the discussion. 

Hierarchy information is shown in Figure 3-1. 



1 










■ IKJPARS 


1 IKJDAIR 


1 IKJSTCK 


I IKJPUTL 





Figure 3-1. Control Module Hierarchy. 
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IKJEFROO 



Entry Point 


IKJEFROO, 


Operation 


Scans and syntax checks the command,. 

Processes the data set name and data set type. 

Verifies the data set name. 

Builds the command list. 

Makes the command list available for input. 

Process messages. 


Data Areas 
Used 


CPPL, COMMDBUF, DAPB08, DSNPDE, INSRCDES, IOPL, PPL, 
RUNPDL, WORK AREA. 


Routines 
Called 


LINK to IKJPARS LOAD and branch to IKJPUTL 
LINK to IKJDAIR LOAD and branch to IKJSTCK 


Exits 


Normal return to caller. 


Registers 


Upon entry, register 1 points to CPPL. 
Upon exit to TMP, register 15 contains a return code. 
Return codes are and 12, indicating no error or 
error in processing. 



Cross reference 



FC* 



MO** 



AA-AF 



2-1,2-2 



* indicates flowchart 
** indicates method of operation diagram 
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Chart AA, IKJEFROO. RUN Command Processing (Overview) (1 of 6) 



Cross Reference: Diagram 2-1. 



( Entry from TMP J 



Initialization 



PARSE 
Scan Command 



D3 



Verify Data 
Set Name 



Build Command 
List in 
Storage 



F3 



STACK 

Make List 
Available 
As Input 



Clean Up 



G3 



1 n^ 

( Return to TMP J 
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Chart AB, IKJEFROO. RUN Command Processing (2 of 6) 



Cross References Diagram 2-1 . 



I KJEFROO AT 

( Entry from TMP J 



Initialization 



GETMAIN 
for Work 
Area 



Build 

Parameters 
for PARSE 




PARSE 



Scan 
Command 



QUALFND2 



Move 
Qualifier 
to Buffer 



C5 



Move Dsname 
to Buffer 
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Chart AC. IKJEFROO. RUN Command Processing (3 of 6) 



Cross Reference: Diagrams 2-1 , 2-2. 




© 



BLNKBUF 



Blank 

Command 

Buffer 




Store Control 
Information 
in Command 
Buffer 



C3 



Build List Source 
Descriptor in 
Command 
Buffer 



C4 



Move LOAD GO 
into Command 
Buffer 



Add Storage 
for WHEN 
Command 



HI 



Add Storage 
for LOAD GO 
Command 



GETMAIN 
Subpool 78 





Construct 

Message 

Parameters 



Set Switch 
Indicating 
Return Code 
Should be 12 



PUTINTFC 
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Chart AD, IKJEFROO. RUN Command Processing (4 of 6) 



Cross Reference: Diagram 2-1 . 




Store Control 
Information 
into Command 
Buffer 



Build STACK 

Parameter 

List 



STACK 




C EXIT! J 



PDL Present 
? 



"""Return Code 12 


v No 


Set Return 


X. Switch on ? S 




Code to 


P s E4 






Set Return 
Code to 12 










„ F4 









f Return J 



\H1 






vCKN. 


No 


FREEMAIN 
Subpool 78 


»ssful ?^ 




Yes 










i 


J2 


Set Switch 






Indicating 






Return Code 12 










1 


K2 




EXIT1 







m RUN 



TSO Command Processor PLM - Vol, 6 (Release 20.1) 



Chart AE. IKJEFROO. RUN Command Processing (5 of 6) 



Cross Reference: Diagram 2-1 . 



Al 



( DSNRTE J 




Move Member 
Name and 
Member Length 
into Buffer 




Set Password 
Length in 
Buffer to 



Go 

Return 

Poii 



»to r— -l 

turn I J 

int \/ 



Return Point is Based 
on Address Passed to 
DSNRTE 



PRMPTYPE 



B3 



Build 

Parameters 
for PARSE 



C3 



PARSE 



D3 
PARSE \ No 
Successful ? 




Save 

Compiler 

Type 



IKJRLSA 
Release PDL 




W 



E4 



No 



Construct 

Message 

Parameter 



Reset Switch 



©■ 





K3 




KA 






EXIT1 




5et Switch 
Indicating 
Return Code 
Is 12 








No 









Set Switch 
Indicating 
Bad Compiler 
Type 



Set Up for 
Return From 
PUTINTFC 
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Chart AF, IKJEFROO. RUN Command Processing (6 of 6) 



Cross Reference: Diagram 2- 



Format First- 
Level Message 
from Message 
Segment Input 



.CI 



Second Level 
Message ? 



Format Second 
Level Message 
from Message 
Segment Input 



GETMAIN for 

PUTLINE 

Parameters 



Build 

PUTLINE 

Parameter 



PUTLINE 

Issue 

Message 



Go t 
Return I 
Point 



Save Return 
Code from 
PUTLINE 



FREEMAIN 



Set Switch 
Indicating 
Return Code is 
12 




I Return Point is j 

Based on. an' Address { 
Passed to PUTINTFC) 



Construct 
Parameter 
for PARSE 



G3 




K3 



DSNRTE 



IKJRLSA 
Release Data 
Set Name 
PDL 
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Section 4. Directory 



This section contains the routine directory organized alphabetically 
by entry point or routine name. A data area directory also is provided 
and is arranged alphabetically. Cross references to flow charts and 
method of operation diagrams are provided when applicable. 



Routine Directory 



Entry point , 
Routine name 


Load Module 


Control Section 


Cross reference 


MO 


FC 


IKJEFROO 


IKJEFROO 


IKJEFROO 


2-1,2-2 


AA,AF 



Data Area Directory 



Data Area, 
Subf ields 


MO 


FC 


COMMDBUF 


2-1 


AC 


CPPL 


2-1 


AA 


DAIRSTOR 


N/A 


AB 


DAPB04 


N/A 


AC 


DAPL 


N/A 


N/A 


DSNPDE 


2-1 


AD 


INSRCDES 


N/A 


N/A 


IOPL 


N/A 


AE 


PPL 


N/A 


AA 


RUNPDL 


N/A 


AA 


WORK AREA 


2-1 


AA,AC,AD 
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Section 5. Data Areas 



This section contains the major data areas in the RUN Command Pocessor, 
Pertinent information 9 such as which routine created the data area, 
which routine uses or updates the data area r and what the data area 
contains 9 is included. 



COMMDBUF 

Created by: TMP. 

Used by: IKJEFROO. 

Contents: COMMDBUF is the command buffer. It is addressed in the 
parameter list (CPPL) passed in register 1 upon entry. 



2 byte length 



2 byte offset 



Variable length 
for command 
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CPPL 

Created by: TMP. 

Used by: IKJEFROO. 

Contents: CPPL is the parameter list pointed to by register 1 upon 
entry. 



Disp 
Dec Hex 


Field 


Size 


Use 


(0) 


CPPLCBUF 


4 bytes 


Points to the command buffer. 


4 (4) 


CPPLUPT 


4 bytes 


Points to the UPT. 


8 (8) 


CPPLPSCB 


4 bytes 


Points to the PSCB. 


12 (C) 


CPPLECT 


4 bytes 


Points to the ECT. 



Cross reference 



FC 
AA 



MO 
2-1 



DAIRSTOR 

Created by: IKJEFR00. 

Used by: IKJDAIR. 

Contents: DAIRSTOR is the IKJDAIR parameter list, 
WORKAREA. 



It is found in 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 





(0) 


DAIRPARM 




16 bytes 


IKJDAIR parameter list. 


16 


(10) 


DSBUFFER 




46 bytes 


Buffer. 




DSLENG 


2 bytes 


Length of dsname. 


DSNBUF 


44 bytes 


Data set name. 


62 


(3E) 


Unnamed 




2 bytes 


Alignment. 
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DAPB04 

Constructed by: IKJEFROO. 

Used by: IKJDAIR. 

Contents: DAPB04 is used to search the DSE for a specified data set 

name. If not found, the system catalog is also searched. It 
is found by adding the contents of register 12 to the 
displacement value of DAPB04 in the cross reference table in 
the program listing. 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 


Use 





(0) 


DA04CD 




2 bytes 


IKJDAIR entry code. 


2 


(2) 


DA04FLG 




2 bytes 


Reserved for flags. 


DA04CAT 


1 bit 


Indicates data set 
name found in 
catalog . 


DA04DSE 


1 bit 


Indicates data set 
name found in DSE. 


4 


(4) 


Unnamed 




2 bytes 


Reserved. 


6 


(6) 


DA04CTRC 




2 bytes 


Catalog return. 


8 


(8) 


DAOUDSN 




4 bytes 


Points to dsname 
to be searched. 


12 


(C) 


DA04CTL 




1 byte 


Control flags for 
special processing. 


DA04UID 




Userid to be 
prefixed to data 
set name. 


13 


■(D) 


Unnamed 




2 bytes 


Reserved. 


15 


(F) 


DA04DSO 




1 byte 


Indicates data 
set organization. 



Cross reference 



FC 
AC 



MO 



N/A 
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DAPL 

Constructed by: IKJEFROO. 

Used by: IKJDAIR, IKJEFROO. 

Contents: DAPL is a parameter list. It is found by adding the contents 
of register 12 to the displacement value of DAPL in the 
cross reference table in the program listing. 



Di splacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


DAPLUPT 


4 bytes 


Points 


to UPT. 


H U) 


DAPLECT 


4 bytes 


Points 


to ECT. 


8 (8) 


DAPLECB 


4 bytes 


Points 


to ECB. 


12 (C) 


DAPLPSCB 


4 bytes 


Points 


to PSCB. 


16 (10) 


DAPLDAPB 


4 bytes 


Points 
block. 


to IKJDAIR parameter 
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DSNPDE 



Created by: IKJPARS. 

Used by: IKJEFROO. 

Contents: DSNPDE is an IKJPARS descriptor element. 
RUNPDL. 



It is found in the 



Disp 
Dec Hex 


Field 


Subfield 


Size 


Use 


(0) 


DSNPTR 




4 bytes 


Points to data set name. 


4 (4) 


DSLEN 




2 bytes 


Length of data set name. 


6 (6) 


DSNFLAG 




1 byte 


Flag byte. 


DSNPRES 




1 bit when on indicates dsname 
present. 


DSNQUOT 




1 bit when on indicates dsname 
quoted. 


7 (7) 


unnamed 




1 byte 


Reserved. 


8 (8) 


MBRPTR 




4 bytes 


Points to member name. 


12 (C) 


MBRLEN 




2 bytes 


Length of member name. 


14 (E) 


MBRFLAG 




1 byte 


Flag byte. 


MBRPRES 




1 bit when on indicates member 
name present. 


15 (F) 


unnamed 




1 byte 


Reserved. 


16 (10) 


PASSPTR 




4 bytes 


Points to password. 


20 (14) 


PASSLEN 




2 bytes 


Length of password. 


22 (16) 


PASSFLAG 




1 byte 


Flag byte. 


PASSPRES 




1 bit; when on, indicates 
password present. 


23 (17) 


unnamed 




1 byte 


Reserved. 
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INSRCDES 

Created by: IKJEFROO. 

Used by: IKJSTCK. 

Contents: List Source Descriptor. It is pointed to by ADSTOR. 



Disp 
Dec Hex 


Field 


Size 


Use 


(0) 


DATAAREA 


4 bytes 


Points to command list. 


4 (4) 


RECLEN 


2 bytes 


Record lengths. Zero here indicates 
variable length records. 


6 (6) 


LISTLEN 


2 bytes 


Length of command list. 


8 (8) 


NEXTBYTE 


4 bytes 


Points to the next byte. 


12 (C) 


unnamed 


4 bytes 


Reserved. 
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IOPL 

Created by: IKJEFROO. 

Used by: IKJPUTL. 

Contents: IOPL is a parameter list for IKJPUTL. It is found by adding 
the contents of register 12 to the displacement value of 
IOPL in the cross reference table in the program listings. 



Disp 
Dec Hex 


Field 


Size 


Use 


(0) 


IOPLUPT 


4 bytes 


Points to the UPT. 


4 U> 


IOPLECT 


4 bytes 


Points to the ECT. 


8 (8) 


IOPLECB 


4 bytes 


Points to the ECB. 


12 (C) 


IOPLIOPB 


4 bytes 


Points to the I/O parameter 


block • 



Cross reference 



FC 
AE 



MO 
N/A 
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PPL 

Constructed by: IKJEFROO. 

Used by: IKJPARS. 

Contents: PPL is a parameter list passed to IKJPARS, It is found by 

adding the contents of register 12 to the displacement value 
of PPL in the cross reference table in the program listings • 



Disp 
Dec Hex 


Field 


Size 


Use 


(0) 


PPLUPT 


4 bytes 


Points 


to the 


UPT. 


4 (4) 


PPLECT 


4 bytes 


Points 


to the 


ECT. 


8 (8) 


PPLECB 


4 bytes 


Points 


to the 


ECB. 


12 (C) 


PPLPCL 


4 bytes 


Points 


to the 


parameter control list. 


16 (10) 


PPLANS 


4 bytes 


Points 


to the 


answer place. 


20 (14) 


PPLCBUF 


4 bytes 


Points 


to the 


user work area. 



Cross reference 



FC 
AA 



MO 
N/A 
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RUNPDL 



Created by: IKJPARS. 

Used by: IKJEFROO. 

Contents: RUNPDL is a parameter descriptor list. 
PDLADDR. 



It is pointed to by 



Disp 
Dec Hex 


Field 


Subfield 


Size 


Use 


(0) 


unnamed 




8 bytes 


Storage chains used by IKJPARS. 


8 (8) 


DSNPDE 




24 bytes 


See DSNPDE described 
earlier in this section. 


32 (20) 


PARMPDE 




8 bytes 


PDE for 'PARM' parameter. 


PARMPTR 




4 -byte that point to parm 
string. 


PARMLEN 




2-byte length field. 
Bit set to on indicates 
parameters present. It is 
called PARMPRES. The 
remaining bits are not 
used. 


PARMFLAG 




1-byte for flags. 


unnamed 




1-byte reserved. 


40 (28) 


TYPEPDE 




2 bytes 


Data set type PDE. 

— not specified. 

1 — ASM. 

2 — FORT. 

3 — COBOL. 

4 — BASIC. 

5 — IPLI. 

6 — GOFORT. 

7 — PLI. 

The remaining bits are 
reserved. 


42 (2A) 


MSGPDE 




2 bytes 


PDE for LMSG/SMSG. When 
the bit is on: 

— not specified. 

1 — LMSG. 

2 — SMSG. 

The remaining bits are 
reserved. 
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RUNPDL (Cont.) 



Disp 


Field 


Subfield 


Size 


Use 


Dec Hex 










44 (2C) 


PRECPDE 




2 bytes 


PDE for LPREC/SPREC. When 
the bit is on: 

— not specified. 

1 — LPREC. 

2 ~ SPREC. 

The remaining bits are reserved. 


46 (2E) 


TESTPDE 




2 bytes 


PDE for TEST/NOTEST. When 
the bit is on: 

— not specified. 

1 — TEST. 

2 -- NOTEST. 

The remaining bits are reserved. 


48 (30) 


FORMPDE 




2 bytes 


PDE for FIXED/FREE. When 
the bit is on: 

— not specified. 

1 ~ FIXED. 

2 — FREE. 

The remaining bits are reserved. 


50 (32) 


OPTPDE 




2 bytes 


PDE for CHECK/OPT. When 
the bit is on: 

— not specified. 

1 — check. 

2 — Opt. 

The remaining bits are 
reserved. 



Cross reference 



FC 



MO 



AA 



N/A 
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WORKAREA 

Created by: IKJEFROO. 

Used by: IKJEFROO. 

Contents: It is a general workarea. It is pointed to by register 12, 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 


Use 


(0) 


PAR SP ARM 




8 bytes 


PARSE parm. list. 


PDLADDR 




4 bytes for answer 
place pointer. 


PDLADDR2 




4 bytes for pointer to PDL. 


8 (8) 


STACKPRM 




8 bytes 


STACK parameter list. 


unnamed 




4 bytes for setting 
proper value by list 
form of STACK. 


ISDPTR 




4 bytes to point to 
List Source Descriptor. 


16 (10) 


DAIRSTOR 




64 bytes 


See DAIRSTOR description. 


80 (50) 


COMMECB 




4 bytes 


Communications ECB. 


84 (54) 


SERTEPRM 




28 bytes 


Service routine parameter 
list. 


ADUPT 




Address of UPT (4 bytes). 


ADECT 




Addres of ECT (4 bytes). 


ADECB 




Address of ECB (4 bytes). 


unnamed 




Pointers to service 
routines (16 bytes). 


112 (70) 


MBRBUF 




10 bytes 


Subfield insertions. 


MBRLENG 




2- byte length field. 


MBRNAME 




8-byte buffer for 
member name. 
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W0RKAREA (Cont. ) 



Disp 
Dec Hex 


Field 


Subfield 


Size 


Use 


122 (7A) 


PASSBUF 




10 bytes 


Subfield insertions. 


PASSLENG 




2- byte length field. 


PASSNAME 




8-byte buffer for 
password. 


132 <84) 


QUALBUF 




8 bytes 


Buffer to hold 
qualifier of data 
set name. 



Cross reference 



FC 



MO 



AA,AC,AD 2-2 
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Section 6. Diagnostic Aids 



This section contains a register summary and the messages from the 
RUN command processor. 



Register Summary 



Register 


Use 


1 


Points to CPPL. Also used as work register. 


2 


Work register. 


3 


Points to IKJPARS PDL. 


4 


Work register. 


5 


Work register. 


6 


Work register. 


7 


Work register. 


8 


Work register. 


9 


Base register. 


10 


Not used. 


11 


Base register. 


12 


Base register for WORKAREA. 


13 


Save area register. 


14 


Branch register. 


15 


Return code register. 
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Messages 



Message ID 


Message Text 


IKJ56051I 


DATA SET dsname NOT IN CATALOG 


IKJ56052I 


COMMAND SYSTEM ERROR + 


♦IKJ56052I 


service rtn ERROR CODE xxxx 


IKJ56053I 


PARAMETER FIELD TRUNCATED TO 100 CHARACTERS 


IKJ56054I 


type INVALID DATA TYPE 


IKJ56055I 


parameters IGNORED FOR type PROCESSING 



The following IKJPARS messages are also issued if applicable: 
INVALID DATA SET TYPE- 
REENTER DATA SET TYPE- 
ENTER DATA SET NAME- 
ENTER DATA SET TYPE- 

♦indicates a second level message for documentation only. 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/ 3 60 Operating System: Program Logic 
Manual Master Index , Order No. GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject. 



ADECB 

field in WORKAREA 29 
ADECT 

field in WORKAREA 29 
ADSTOR 

parameter to INSRCDES 24 
ADUPT 

field in WORKAREA 29 
alias 6 
allocate 6 
answer place 26 
arrow 

black 8 

dotted 8 

heavy black 8 

thin black 8 

white 8 



ASM 



data set type PDE 27 



base register 31 
black arrow 

symbol 8 
branch register 31 
buffer 

used in EAIRSTOR 20 



catalog 21 
check 

PDE for 28 
COBOL 

Data set type PDE 27 
code 7 

command name 6 
command 5 
command buffer 5 
command list 7 
command name run 6 
command processor parameter list 
commands 5 
COMMDBUF 

in data area directory 17 
COMMECB 

field in WORKAREA 29 
compile 5 
control flags 21 

information 7 

module hierarchy 9 

section 17 



CPPL 

data area 20 

in data area directory 

parameter list 19 
CPPLCEUF 

field in CPPL 



17 



CPPLECT 

field in CPPL 
CPPLPSCB 

field in CPPL 
CPPLUPT 

field in CPPL 



20 



20 



20 



20 



20 



DAIRPARM 

field in DAIRSTOR 
DAIRSTOR 

data area 20 

in data area directory 
DAPB04 

data area 21 

in data area directory 
DAPL 

data area 22 

in data area directory 
DAPLDAPB 
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17 



17 



17 



field 


in 


DAPL 


DAPLECT 






field 


in 


DAPL 


DAPLECE 






field 


in 


DAPL 


DAPLPSCB 






field 


in 


DAPL 


DAPLUPT 






field 


in 


DAPL 


DA04CAT 






field 


in 


DAPB04 


DA04CD 






field 


in 


DAPB04 


DA0UCTL 






field 


in 


EAPB0U 


DA04CTRC 






field 


in 


DAPB04 


DA04DSE 






field 


in 


DAPB04 


DA04DSN 






field 


in 


DAPB04 


DA04DSC 






field 


in 
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Inputs 



RUN Command Processing 



Output 



Reg 1 



7 



CPPL 



Command Buffer 



RUN Command 



From 
TMP 



Standard TMP - Processor Interface 



Description 


Routine 


Label 


FC 


1 


IKJEFROO uses the PARSE service routine, IKJPARS, to scan and syntax check the RUN 
command. Prompting occurs if required parameters are missing or if syntactically 
incorrect parameters are present. 


IKJEFROO 


IKJEFROO 


AB 


2 

3 
4 


Upon return from IKJPARS, the return code is checked. If an error was encountered, 
a message is issued to the user; otherwise, processing continues. 

Control passes to a routine that examines the specified data set or member name and 
places applicable information into a buffer in WORKAREA. If the data set is fully 
qualified, an indicator is set. If a password is specified, the password and length are 
placed in WORKAREA. 

Then the data set type (ASM, etc) is determined and placed in the data set type 
buffer of WORKAREA. IKJPARS is again used, if necessary, to prompt for the data 
set type. 

The DAIR service routine is then given control to search for a data set having the 
specified name. First the user's DSE is searched; then if necessary, the system catalog. 
If the data set is found, processing continues; otherwise, the user is prompted for a 
respecification, and another search is made. 

When a data set is verified as existing, storage is obtained in shared subpool 78 for an 
in-storage command list and a table (the List Source Descriptor) describing the list. 
See Diagram 2-2 for details of this operation. 

After the in-storage command list and List Source Descriptor are built, the address of 
the List Source Descriptor is placed in the STACK parameter list and control is passed 
to the STACK Service routine. This routine places the command list on the input stack. 








DSNRTE 


AE 


QUALRTE 


AB 


DAIRINIT 




CALCORE 




ENDBLD 


AD 




Then control returns to the TMP. The TMP will select the next command from the top 
of the input stack. 









V 



DSNPDE 



I Scan for command. 
Syntax check. 



cL Determine dsname and verify. 
Determine data set type. 

Fill in WORKAREA 



O Build command 
list and List 
Source Descriptor 



4 Place list on input stack. 
Then return to TMP. 




PDL returned by PARSE 
(step I , above) 



Diagram 2-1. RUN Command Processing Overview 



PARMPDE 
TYPEPDE 
PRECPDE 
FORMPDE 



PDE for data set name 



PDE for PARM string 



-* ds type 



-* LPREC/SPREC 



FIXED/FREE 



LMSG/SMSG 



TEST/NOTEST 



CHECK/OPT 
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Inputs 



Building a RUN Command List 



WORKAREA 



B 



See D bel 



Information returned 
from PARSE. 

(See f\ on Diagram 2-1) 




From 
2-1 



Description 


Routine 


Label 


FC 


1 WORKAREA fields and parse information previously located through the PDL are 
examined to calculate the amount of storage required for the command list. 
Included in the calculation are : 


IKJEFR00 


CALCORE 




• The length of the List Source Descriptor (16 bytes) 








• The size of the compiler command. 








• The length of the data set name. 








• Compiler parameters, if any. 








• LOADGO command size (for ASM, FORT, or COBOL). This size includes 
control information length; LOADGO length; LOADGO data set name length; 
The length of the WHEN/ END command, which is used to prevent execution of 
the program in the event the compiler does not complete successfully; 
parameter information, if any; COBLIB and FORTLIB length (for COBOL and 
FORT data sets.) 

2 The command list and List Source Descriptor are built. The List source descriptor is 
filled in as the command list is constructed. 

First, the compiler command (type) is built. Control information consists of a 
two-byte length field followed by two bytes containing 0. The compiler command is 
moved to the appropriate buffer (CMDNAME). 

Then the data set name is moved to the command list buffer (DSNPARM). 






AC 


BLNKBUF 


INSRCBLD 


MOVEDSN 


If a compiler parameter is specified (for BASIC, or GOFORT), it is placed in the 
buffer, along with the parameter length. 








If the compiler is ASM, FORT, or COBOL, the WHEN command is built and placed in 
the list. Then the LOADGO command Is created. This consists of placing in the buffer 
the proper data set name, applicable parameters, and for the FORT and COBOL data 
sets, FORTLIB or COBLIB, respectively. The length of the LOADGO command is 
placed in the control field. 

'After the command list is complete, it is placed on the input stack 
(See Step 4 of Diagram 2-1 ). 








ENDBLD 


AD 



1 Calculate amount of storage 
required. 



2 Build Command list and List 
Source Descriptor. 



Return to 2-1 



List Source j 
Descriptor 



Command List Buffers 



Reserved 

— 7T~ 



Various buffers for 

commands, parameters, 

etc. 

For example; 



CMDNAME, DSNPARM, 
etc. 

_ ^ • -- 

a — * command list* 

b — indicates variable recorder, 
c -"command list length* 
d — "f msxt byte* 



2-1 




B 



WORKAREA 



Note: 



Shaded areas were previously 
filled in by DSNRTE (if 
applicable) from information 
found through the PDL. 
(See Diagram 2-1 ). 



DSNBUF 
DSLENG 



^> 



MBRBUF 



PASSBUF 



QUALBUF 



MBRLENG - 

. MBRNAME " 

PASSLENG - 

PASS NAME" 



^> 



-N 



Set to value by STACK 



4 List Source Descriptor 



Communication ECB 



Parse parameter list information. 
STACK parameter list. 



DAIR parameter list. 



Service routine parameter list. 

Buffer for member name, if any, and length. 

Buffer for password, if any, and length. 

Buffer for right-hand qualifier of data set name. 



Diagram 2-2. Building a RUN Command List 
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Section 1. Introduction 



The Send Command Processor enables the terminal user to send a message 
to any system operator console or to any authorized TSO user. 

Function 

When the message is for an operator the number of the operator console 
is a part of the command. The processor uses the WTO macro to send 
the message to the console. 

When the message is for a user , his USERID is given in the command. 
If the user is logged on, his USERID will be in the time sharing job 
block (TJB) associated with the terminal he is using. The processor 
locates the TJB and sends the message to the terminal via the TPUT 
macro. 

Environment 

If the user is not logged on, the message can be written in the 
Broadcast Data Set, a BDAM data set which contains the USERID of every 
authorized user and space for messages. The message is chained to 
the USERID of its intended receiver. One function of Logon is the 
listing of such messages at the user's terminal. The user may also 
receive such messages by using the LISTBC Command. 

In addition to sending the message to an operator console, to a 
receiving terminal, or to the Broadcast Data Set, the processor also 
sends warning messages to the sending terminal. These warning messages 
tell the sender of failure or other unexpected conditions encountered 
during processing. 

The physical structure of the program (load modules and control 
sections) is given in the Routine Directory in Section 3. 

Figure 1-1 shows the format of the command and summarizes the message 
flow. 



SEND 7 



SEND "text 1 



USER (A, B, C) 
OPERATOR (2) 



NOW 
LOGON 



-Valid only if USER 



WARNING 




BROADCAST 
DATA SET 



o 



1 ) The command is entered, 
IF OPERATOR IS SPECIFIED 

2 ) The message is sent to the given console number. 
IF USER IS SPECIFIED 



© 



© 



3 ) The TJB array is searched on USERID. The TJB in which a user's ID is found points to the terminal being 
presently used by him. The message is sent to that terminal. 

0lf a user is not logged on his ID will not be found in a TJB. The message is sent to the Broadcast Data 
Set where it is chained from his USERID. When he starts to use any terminal in the system, the 
message is sent to him as a part of the function of LOGON. 



© 



5 ) Warning messages are sent to the sending terminal. For instance, if USERID B Is not found in the 
Broadcast Data Set, the "unauthorized -user " message is sent. 



Figure 1-1. SEND COMMAND MESSAGE FLOW 
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Section 2. Method of Operation 



This section describes the logic of the USER SEND command processor. 
It emphasizes the flow of data and control information through buffers 
and tables , and contains detailed functional descriptions of the 
operation. 

Program logic information for the TMP and the TSO service routines 
used is contained in the Terminal Monitor Program and Service Routines 
Program Logic Manual , GY28-6770. 

Summary of SEND Processing 

The Send processor is a message delivery program. It is driven by 
the parameters used on the command, and by the operating status of 
the receiving user. 

Depending upon command parameters , messages are delivered to a system 
operator or a terminal user. Depending upon the operating status of 
a receiving terminal user* messages may be: delivered immediately, 
stored for future delivery, or not delivered. In the latter case a 
warning message is sent to the sending terminal. 

A further functional summary and a legend of the symbols used on 
the diagrams are given on Diagram 2-1. 

Diagrams 2-2 through 2-5 give information on the implementation of 
the functions. 

Method of Operation Diagrams 

NOTE: The method of operation diagrams are in the back of this PLM. 



SEND 
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Section 3. Program Organization 



This section describes the routines of the Send processor and the 
relationships among thenu Figure 3-1 gives hierarchy information. 
The remainder of this section consists of module descriptions and 
f lowcharts. 



SEND 11 



Hierarchy 



I TMP 

1 1 



[ 



IKJEES11 



IKJPARS 



I IKJDAIR 



IKJEFF18 




IKJEFF02 



I IEEVSDIO 




IKJPUTL 



IKJPUTL 




Figure 3-1, Hierarchy of the SEND Command Processor 
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IEEVSDIO— I/O Module 



Entry Point 


IEEVSDIO — called by IKJEES10 
Upon entry: 

• Reg 1 points to SDIOPARM, a 32 byte area containing 
information necessary for I/O operations • 

• Reg 14 contains the return address in IKJEES10. 

• Reg 15 contains the entry point address • 


Operation 


IEEVSDIO performs five functions for the Send 
command processor. The function requested is indicated 
by the first two bytes of the parameter list (PARM1 and 
PARM2) as follows: 

• PARMl=X , 80 i — open broadcast data set. 

• PARM1=X , U0 - — read the record at the relative block 
address (RBA) pointed to by PARMRBA in the parameter 
list. 

• PARM2=X , 80 i — write the record from the address in 
PARMIOAD to the RBA pointed to by PARMRBA. 

• PARM2=X f 40 f — write the record from the address in 
PARMIOAD to the first free space (KEY=FF) in the 
broadcast data set. 

• PARM2=X , 20" — close the broadcast data set. 

Before Send calls this module it allocates the 
broadcast data set (using IKJDAIR) and puts the DD name 
in PARMDDNM in the parameter list. 

This module performs other functions when used 
by Acct/Broadcast Data Set Interface (IKJEES40). 


Data Areas 
Used 


• DCB — for broadcast data set 

• DECB — data event control block 

• ECB — to test exception code bit settings after 

I/O operation 


Macros 
Issued 


Getmain 

Freeraain 

Read 

Write 

Check 

Open 

Close 



SEND 13 



IEEVSDIO — I/O Module (Cont.) 



Exits 


Error — 


None, this routine is covered by the TMP STAE/ 
STAI environment. 




Normal — 


- Branch on register 14 to caller 


Registers 


• R3 — 


address of 12 9 byte read/write area 




• R4 — 


address of RBA (relative block address) of 
block to be written or read 




• R6 — 


loop control 




• R7 ~ 


address of IOPARML (parameters passed by 
IKJEES10 to this routine) 




• RIO — 


base register for DCB DSECT 




• Rll — 


base register for CSECT 




• R12 — 


base register for Data Area DSECT 




• R13 — 


address of this routine save area 




• R1U — 


▼•eturn address of calling routine 




• R15 — 


return code 
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IKJEES10 — Initialization, Control, Cleanup 



Entry 
Point 



IKJEES10 — attached by TMP. At entry 
Register 1 points to the CPPL which contains: 

• Command Buffer address 

• User Profile Table address 

• Protected Step Control Block address 

• Environment Control Table address 
Register 13 points to the register save area 
Register 14 contains the return address 
Register 15 points to entry point — IKJEES10 



Operation 



The Send command processor is used by a sending 
terminal to deliver messages to three places: 

• Operator consoles 

• Terminals — for logged on users 

• Broadcast data set — for users not logged on 

In addition it sends warning messages to the sending 
terminal. 

This routine builds a common data area, then passes 
control to IKJEES11, which sends messages to operator 
consoles and terminals. Control is returned to this 
routine which writes messages to the Broadcast data 
set using IKJDAIR and IEEVSDIO, and sends warning 
messages to the sending terminal using the IKJPUTL 
service routine. 



2. 
3. 



4. 



The order of operation is: 
1. Receive control from TMP. 

Set up common data area for IKJEES11. 

Call IKJEES11 to syntax check the send command 

(via Parse) and send messages to operator consoles 

and user terminals . 

On return from IKJEESll r if 'LOGON' is specified: 

A. Call DAIR to allocate broadcast data set. 

B. Call IEEVSDIO to open broadcast data set and 
read user directory. 

C. Add user mail message record (s) to data set. 

D. Close the broadcast data set. 
Issue warning message to sender for any abnormal 
condition encountered in IKJEES10 or IKJEES11. 
Return to TMP. 



SEND 15 



IKJEES10 — Initialization, Control, Cleanup (Cont„) 



Data Areas 
Used 


• Command Buffer — command parameters from TMP. 

• COMMON — common data area for this routine and 
IKJEES11. Built and partly filled by this routine* 

• CPPL — parameter list from TMP, 

• DAPL — parameter list for IKJDAIR. 

• DAPB08 — DAIR parameter block, pointed to by DAPL, 
for allocation (code "08') of broadcast data set. 

• PSCB — protected step control block, contains user 
ID of sender. 

• IOPL — parameter list for PUTLINE. 

• IKJEES20 — warning message module. 


Routines 
Called 


IKJDAIR — via LINK, to interface with dynamic 

allocation and obtain the ddname for the 

broadcast data set. 
IKJPUTL — via PUTLINE macro, to issue the TPUT 

necessary to send warning messages to the 

sending terminal. 
IEEVSDIO — via CALL, to do I/O operations involving 

the Broadcast data set. 
IKJEES11 — via CALL, to send messages to operator 

consoles and user terminals. 
IKJEFF18 — via LOAD and CALL, DAIR error analysis. 


Exits 


Error — none, this processor is covered by the TMP 

STAE/STAI environment. 
Normal — Control returns to TMP. 


Registers 


Rl — pointer parameter lists 

R4 — loop control 

R13 — address of this routines save area 

R14 — return address 

R15 — return code: 

is successful completion 
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IKJEES11 — Operator Console and Terminal Messages 



Entry Points 


IKJEES11 — called by IKJEES10 f at entry: 

Register 1 points to COMMON 

Register 13 points to the register save area 
Register 14 contains the return address in IKJEES10 
Register 15 points to IKJEES11, the entry point 


Operation 


This routine is called by IKJEES10 to send the message 
to the operator console or to terminals* The order 
of operation is: 

1, Link to PARSE to syntax check the command 
parameters and build the PDL (parameter descriptor 
list) which specifies the operation called for by 
the command parameters, 

2. If operator is specified, send the message to the 
specified operator console via the WTO macro • 

3, If user is specified, send the message to logged 
on terminal users specified by the user ID list. 
The TPUT macro is used. 

4. Return to IKJEES10 to complete processing and 
to send any required warning messages. 


Data Areas 


• Command Buffer — has command name and parameters. 

• Common — interface between IKJEES10 and this routine 

• CVT — contains pointer to Time Sharing CVT 

• TSCVT — Time Sharing CVT, contains pointer to TJB. 

• TJB — Time Sharing Job Block. One is allocated to 
each logged on user; it contains his user ID and 
information required to send a message to his 
terminal . 

• PSCB — Protected Step Control Block contains the 
senders user ID. 


Routines 
Called 


IKJPARS — via LINK, to syntax check command parameter 
and build the PDL parameter descriptor list. 
TPUT macro — to send the message to the terminal. 
WTO macro — to send the message to the operator 
console. 


Exits 


Error — None, this processor is covered by the TMP 

STAE/STAI environment. 

Normal — control returns to the caller. 


Registers 


Rl — address of passed parameters 

R4 — index into USERID table 

R6 — address of PDL (Parameter Descriptor List) 

R14 — return address 



SEND 17 



IK JEFF 18— Common DAIR Failure Message Routine 



Entry Point 


IKJEFF18 — at entry register 1 points to a list of 
pointers to: 

• The input parameter list used when the call to DAIR 
was made (the DAPL), including the DAIR request 
parameter block, (DAPB08) 

• A full word containing the DAIR return code from 
register 15. 

• A full word containing zeroes. 

• A half word containing the caller number 

(1 for SEND). 


Operation 


IKJEFF18 diagnoses DAIR allocation and unallocation 
failures and puts out appropriate messages to the 
sending terminal. 

Input to this routine consists essentially of the 
input to and the output from DAIR. Thus if the return 
code from DAIR is non-zero, IKJEFF18 may be called to 
diagnose the error. 

The sequence of operation is: 

1. The caller's situation is identified (what 
operation was being performed) . 

2. A table relating return codes to their meanings 
for the caller's situation is used. From this 
table a message ID for an appropriate message 
is obtained. 

3. The message ID is passed to IKJEFF02 which send 
the message to the terminal via PUTLINE. 


Data Areas 
Used 


CPPL 
DAPL 
DAPB08 


Routines 
Called 


IKJEFF02 — via LOAD and CALL, to send messages to a 
terminal. 


Exits 


Both normal and error return to caller with register 
15 set to zero. 


Registers 


Usage of Registers 1, 13, 14 and 15 is standard. 
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IKJEES20 — Message Module 



Entry Point 



None* 



This module contains the four warning messages 
issued by Send, The module is not executable § 
but it must be included in the load module IKJEES10. 



SEND 



Chart AA. IKJEES10. I/O Control and Warning Messages (1 of 4) 
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sNo 




BADDAIR 


G3 


G2 




CALL to DAIR 
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H2 




' 


f t- 
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Share on 
Record 1 
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of Broadcast 
Data Set 




Set Up Message 
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Msg Text + 
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-i4 
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READUSDj' 



Initialize Parm 
List for I/O 
Routine 
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Chart AB. IKJEES10, I/O Control and Warning Messages (2 of 4) 
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Chart AC. IKJEES10. I/O Control and Warning Messages (3 of 4) 
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JL 
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Chart AD, IKJEES10. I/O Control and Warning Messages (4 of 4) 
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Chart BA. IKJEES11. Operator and User Messages (1 of 3) 
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Chart BB. IKJEES11. Operator and User Messages (2 of 3) 
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Chart BC. IKJEES11,. Operator and User Messages (3 of 3) 
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Chart CA. lEEVSDIO. SEND I/O Module ( 1 of 4) 
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Chart CB. IEEVSDIO. SEND I/O Module ( 2 of 4) 
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Chart CC. IEEVSDIO. SEND I/O Module ( 3 of 4) 
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Chart CD. IEEVSDIO. SEND I/O Module (4 of 4) 
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Section 4. Directory 



This section contains a routine directory and a data area directory 
both organized alphabetically. 

Routine Directory 



Entry name. 
Routine Name 



Load 
Module 



Control 
Section 



Cross reference 
MO FC 



IEEVSDIO 


IKJEES10 


IEEVSDIO 


2-4 


CA,CB,CC,CD 


IKJEES10 


IKJEES10 


IKJEES10 


2-2 


AA,AB # AC,AD 


IKJEES11 


IKJEES10 


IKJEFF11 


2-2,2-3 


BA,BB,BC 


IKJEES20 


IKJEES10 




2-5 


AB 


IKJEFF02 


IKJEFF02 


IKJEFF02 


2-5 


AB 


IKJEFF18 


IKJEFF18 


IKJEFF18 


2-5 


AA 
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Data Area Directory 



Data Area 



MO 



FC 



COMBUF 


2-2 


AA 


COMMON 


2-2 

thru 

2-5 


AA 


CPPL 


2-2 

thru 

2-5 


A A 


DAPB08 


2- ^ 


AA 


DAPL 


2-4 


AA 


IOPL 


2-5 


AB 


PPL 


2-2 


BA 


PSCB 


2-2 , 2-4 


AA 


SDIOPARM 


2-4 


AA 


SENDPDL 


2-2 


BA 


TJB 


2-2 


BB 


TSCVT 


2-3 


BB 


WEARTOGO 




AA 


WTOLIST 


2-2 


BA 
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Section 4. Data Areas 



This section contains descriptions of the major data areas in the Send 
command processor. 



Unnamed (Command Buffer) 
Created by: TMP 
Used by: IKJEES10 
Contents: The TSO Command. 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


CBLNG 


2 


Length of entire buffer. 


2 (2) 


CBOFF 


2 


Offset at which IKJSCAN stopped. 


4 (4) 


CBCOM 


100 


Command name and parameter. 
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COMMON 

Created by: IKJEES10 

Used by: IKJEES10 and IKJEES11 

Use: Common data area for IKJEES10 and IKJEES11 



Disp Field Subfield Size 
Dec (Hex) (Bytes) 



Use/Contents 



(0) 


FLAGS 


FLOGON 
FOPEN 
FPARS 
FMSG7 

FWT02 

* 

FNOW 

FMSGO 

FENQ1 

FENQUSD 

FCHAIN 
FBADPUTL 


3 
Ibit 
Ibit 
Ibit 
Ibit 

Ibit 
Ibit 
Ibit 

Ibit 
Ibit 
Ibit 

Ibit 
Ibit 


If bit=l meaning is: 

LOGON specified. 

Broadcast Data Set is open. 

Parse PDL space must be freed. 

"Not accepting" message must 

be sent. 

Second write to operator is 

needed. 

Reserved, 

•NOW specif id or by default, 

•Message text truncated* 

message must be sent. 

Enqueued on record 1, 

Reserved, 

Enqueued on user mail 

directory, 

Message chain for this user ID, 

PUTLINE error. 


3 (3) 


COMROUT 




1 


Index into where to go table 
on return from IKJEES11. 


4 (4) 


VALCNT 




1 


Number of valid user IDs 
processed, (VALCNT=IDCNT, all 
are done) 


8 (8) 


COMCPPL 




4 


Pointer to CPPL (parameters 
from TMP) 


12 (C) 


CPDLMSGT 




4 


Pointer to PDE for send message 
text (returned by PARSE) • 


16 (10) 


PDLPTR 




a 


Pointer to PDL supplied by 
parse, passed to IKJEES10 for 
IKJRLSA, 
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COMMON (Cont.) 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



20 (14) 


IDCNT 


1 


Number of user IDs specified in send 
command, equal to number of entries in 
IDUSRID. 


21 (15) 


IDTBL 


3 


Pointer to table of user IDs in IKJEESIO 
(IDUSRID) . 


24 (18) 


M7IND 


1 


Index to MSG7 user ID insert. 


25 (19) 


COMMSG7 


3 


Pointer to MSG7 user ID insert (MSG7INS, 
in IKJEESIO) 


28 (1C) 


COMRETC 


2 


Non-zero return code from PARSE or TPUT. 


30 (IE) 


♦ 


2 


Reserved. 



DAPL 

Created by: IKJEESIO 

Used by: IKJDAIR 

Contents: Pointers for SEND - DAIR Interface 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 






(0) 


DAPLUPT 


4 


Pointer to UPT. 


4 


(4) 


DAPLECT 


4 


Pointer to ECT. 


8 


(8) 


DAPLECB 


4 


Pointer to Command Processor's ECB. 


12 


(C) 


DAPLPSCB 


4 


Pointer to PSCB. 


16 


(10) 


DAPLDAPB 


4 


Pointer to DAIR parameter block. 
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IOPARML 

Created by: IKJEES10 

Used by: IEEVSDIO, IKJEES10 

Contents: Parmlist for call to IEEVSDIO, 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


SDIOPARM 


20 


Area cleared for each call, for 
details see "SDIOPARM". 


20 (14) 


PARMLMCT 


4 


Limit count for DCB with extended 
search option. 


24 (18) 


PARMDCB 


4 


Address of DCB for Broadcast data 
set. 


28 (1C) 


PARMJFCB 


4 


Address of JFCB for Broadcast data 
set. 



IOPL 

Created by: IKJEES10 

Used by: IKJPUTL 

Contents: Pointers for SEND - PUTLINE Interface - 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


IOPLUPT 


4 


Pointer to User Profile Table. 


4 (4) 


IOPLECT 


4 


Pointer to Environment Control Table. 


8 (8) 


IOPLECB 


4 


Pointer to Send Event Control Block. 


12 (C) 


IOPLIOPB 


4 


Pointer to Putline parameter block. 
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PPL 

Created by: IKJEESll 

Used by: IKJPARS 

Contents: Pointers for SEND - PARSE Interface, 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


PPLUPT 


4 


Pointer to User Profile Table. 


4 (4) 


PPLECT 


4 


Pointer to Environment Control Table. 


8 (8) 


PPLECB 


4 


Pointer to Command Processor ECB. 


12 (C) 


PPLPCL 


4 


Pointer to parse control list in IKJEESll. 


16 (10) 


PPLANS 


4 


Pointer to the field, in which PARSE 
returns a pointer to the Parameter 
Description List. 


20 (14) 


PPLCBUF 


4 


Pointer to Command Buffer. 


24 (18) 


PPLUWA 


4 


Pointers to Work Area for validity check 
routine. 
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SDIOPARM 

Created by: IKJEES10 

Used by: IEEVSDIO, IKJEES10 

Contents: Interface for I/O operations or Broadcast data set, 



Disp Field 
Dec (Hex) 



Subfield 



Size 
(Bytes) 



Use/Contents 



(0) 


* 

* 


PIOPEN 
PIREAD 

P2WRDI 
P2WRDAF 
P2CLOSE 
P2DEL 

P2JFCB 


1 

Ibit 

Ibit 

1 

Ibit 

Ibit 

Ibit 

Ibit 

Ibit 


Operation indicator flags. 

Open data set. 

Read a record. 

More operation indicator flags. 

Write by block ID. 

Write type f DAF* in free space. 

Close data set. 

This write deletes a record , 

put PARMFDBK into first byte 

of data and set key = X s FF f . 

Free core for JFCB # not used 

by User Send Command Processor. 


2 (2) 


PARMKEY 




1 


Key for record to be written. 


3 (3) 


PARMFDBK 




1 


Feedback from read (position 
of record on track). Put into 
first byte of data for delete. 


4 (4) 


PARMRBA 




4 


Address of RBA for read/write. 


8 (8) 


PARMIOAD 




4 


Address of area for I/O record. 


12 (C) 


PARMDDNM 




8 


DDname for broadcast data set. 


20 (14) 


PARMLMCT 




4 


Limit count for DCB with 
extended search option. 


24 (18) 


PARMDCB 




4 


Address of DCB for broadcast 
data set (used by Send 
command processor) . 


28 (1C) 


PARMJFCB 




4 


Address of JFCB (not used by 
SEND CP). 
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SENDPDL (Parameter Descriptor List) 

Created by: IKJPARS 

Used by: IKJEES11, IKJEES10 

Contents: Driving list for Send Command Processor 



Disp Field Subfield Size 
Dec (Hex) (Bytes) 



Use/Contents 



(0) 


* 




8 


Storage chain information used 
by IKJPARS. 


8 (8) 

12 (C) 

14 (E) 

15 (F) 


PDLMSGT 


PDLMPTR 
PDLMLL 
PDLMFL 
PDLMRES 


8 
4 
2 
1 
1 


Pointer to message text. 
Length of message. 
Flags • 
Reserved, 


16 (10) 


PDLSDEE 




2 


Receiver of message 

1 = operator 

2 = user 


18 (12) 


PDLWHEN 




2 


Now/logon parameter 

1 = now 

2 = logon 


20 (14) 

24 (18) 

26 (1A) 

27 (IB) 

28 (IC) 


PDLLIST 


USLUSPTR 

USLLL 

USLFL 

USLRES 

USLCHN 


12 
4 
2 
1 
1 
4 


USER ID PDE. 

Pointer to user ID, 

Length of user ID. 

Flags. 

Reserved. 

Pointer to next USERID PDE 

X'FFOOOOOO - if this is last. 



SEND 39 



WEARTOGO 

Created by: IKJEES10 

Used by: XKJEFS10, tKJEESll 

Contents: An index into this table set by Sll controls its effective 
return point in S10. 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


EXITCODE 


4 


Normal exit. 


4 (4) 


EXIT1 


4 


No message text, terminate. 


8 (8) 


EXIT3 


4 


Not used. 


12 (C) 


MSG20UT 


4 


Send 'users not logged on 1 message. 


16 (10) 


BADPARSE 


4 


Send "badparse' message. 


20 (14) 


BADTPUT 


4 


Send bad TPUT message. 


24 (18) 


DODAIR 


4 


TEXT must go to Broadcast data set. 



WTOLIST 

Created by: IKJEES11 

Used by: IKJEES11 

Contents: Parameter list for write to operator macro. 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


WTOMSGL 


2 


Length of message text + 4. 


2 (2) 


WTOMCSF 


2 


MCS flags. 


4 (4) 


WTOTEXT 


137 


Message text. 
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Section 6. Diagnostic Aids 



This section contains a register usage summary and the messages issued 
by the Send command processor. 



Register Summary 

All routines in this processor use the following four registers in 
the conventional ways: 

Rl — parameter list pointer 

R13 — register save area pointer 

R14 — return address 

R15 — return code 



Other significant register usages are ; 



Routine 



Reg 



Usage 



IEEVSDIO 





Used by Getmain and Freemain. 


3 


Address of 129-byte Read/Write area. 


a 


Address of relative block address (RBA) of block 
to be read. 


6 


Counter for loop control 


7 


Address of parameter list. 


10 


Base register for DCB DSECT. 


11 


Base register for CSECT. 


12 


Base register for data area DSECT. 


13 


Address of this routines save area. 
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Routine 



Reg 



Usage 



IEEVSDIO 
(Cont. ) 


14 


Return address of calling routine. 


15 


Return code. 



Routine 



Reg 



Usage 



IKJEES10 


1 


Parameter list address. 


4 


Counter for loop control. 


13 


Address of this routine's save area. 


14 


Return address. 


15 


Return code. 


IKJEES11 


1 


Parameter list address. 


4 


Index to IDUSRID (Table of USERIDs to receive 
message) . 


14 


Return address. 


15 


Return code. 
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Messages 

Pair Failure Messages 

These messages are issued by IKJEFF18, the Common Dair Failure Message 
Routine* Where parenthesis (n) and a number appear in the message, 
the following are inserted: 

(1 ) SYS1 • BROADCAST 

(2) ALLOCATED 

(3) The name of the failing routine 



Message ID 


Message Text 


IKJ56220I 


(1) NOT ALLOCATED, TOO MANY DATA SETS* 
USE FREE COMMAND TO FREE UNUSED DATA SETS 


IKJ56221I 


(1) NOT ALLOCATED, DATA SET NOT ON VOLUME + 
CATALOG INFORMATION IINCORRECT 


IKJ56222I 


(1) NOT ALLOCATED, REQUIRED VOLUME NOT MOUNTED* 
VOLUME NOT ON SYSTEM AND CANNOT BE ACCESSED 


IKJ56223I 


(1) NOT (2) , SYSTEM ERROR* 
(3) ERROR CODE xxxxx 


IKJ56225I 


DATA SET -dsname- ALREADY IN USE, TRY LATER+ 
DATA SET IS ALLOCATED TO ANOTHER JOB OR USED 


IKJ56227I 


NOT ENOUGH MAIN STORAGE TO EXECUTE COMMAND 


IKJ56228I 


DATA SET -as name- NOT IN CATALOG 
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Send Termination and Warning Messages 
These messages are issued by IKJEES10. 
Message ID Message Text 



IKJ55071I 
(warning) 


INVALID USERID(S) -userid(s)-+ 
USERID NOT AUTHORIZED FOR TSO 


IKJ55072I 
(warning) 


USER(S) -userid(s)- NOT LOGGED ON, MESSAGE CANCELED 


IKJ55074I 
(termination) 


NO SPACE IN BROADCAST DATA SET FOR MAIL 


IKJ55075I 
( termination ) 


DATA SET SYS1. BROADCAST NOT USABLE+ 
I/O SYNAD ERROR 

or 
CANNOT OPEN DATA SET 


IKJ55077I 
(warning) 


USER(S) -userid(s)- NOT ACCEPTING MESSAGES , MESSAGE 
CANCELED 


IKJ55080I 
(warning) 


MESSAGE TRUNCATED TO 115 CHARACTERS 


IKJ55081I 
( termination ) 


COMMAND SYSTEM ERROR* 
PUTLINE ERROR CODE -code- 

or 
TPUT ERROR CODE -code- 

or 
terminal 
PARSE ERROR CODE -code- 


IKJ55082I 
(termination ) 


NOT ENOUGH MAIN STORAGE TO EXECUTE COMMAND 
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User Send delivers messages to various places depending upon command 
parameters and the operating status of the intended receiver. 



© 

© 



If OPERATOR is specified the WTO macro is used to send the 
message to the specified console. 



If USER is specified the processor sends the message to all 
specified and logged on users. 



(3 j If LOGON is specified the message is sent to the Broadcast 
data set to be stored as mail for the specified and not logged 
on users. When a user logs on, his mail is delivered to him. 

(4 J Warning messages are sent to the sending terminal telling 
of failures or other unexpected conditions. For example, 
if NOW is specified and a receiving user is not logged on, 
the message " USER(s) - userids- NOT LOGGED ON " is sent. 



SEND 'text' 



COMMAND BUFFER 



Length 



Offset 



O 



USER ( userl , user2 , user3 ) 
OPERATOR ( number 2 ) 



NOW 



LOGON 



\7 



Comment 



'text 'and 
parameters 



(Initialize ^ 

OPERATOR J | 



Syntax check, 
Build PDL, 
message to 
operator. 

( Diagram 2-2 1 



Parameter 
Descriptor 
List 



Pointer to 
text & 
parameters 



| Build Send List, 
| message to logged I 
on users. 



f Diagram 2-3 J 



SEND LIST 



user 1 



user 2 




Messages for not 
logged on users. 



f Diagram 2-4 J| 



© 



( Warning Msgs j§ 

Warning messages 
to sending 
| terminal. 

f Diagram 2-5 |f 



WTO MACRO 



TPUT MACRO 



BDAM WRITE 



PUTLINE MACRO 





^ 



Broadcast 
Data Set 



- At Logon 



User 3 
Terminal 




Diagram 2-1. Major Functions 
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INITIALIZE and WTO 



LINK 



TMP J 

I IKJEES10 
^ATTACH w 



CALL 




IDUSRID 



SEND LIST 

(for user IDs 
to receive 
message) 



IKJEES11 



1 Build COMMON. 

2 Build PDL. 

3 Is message to USER ? 

Yes. Go to 

4 Write to operator. 



Go Cleanup 



MSG7INS 



Storage for user IDs not 
accepting messages 



Description 


Routine 


Label 


FC 


1 


Common is built and initialized with pointer to the CPPL, the area for the SEND LIST, 
and the area for message 7 (user not accepting messages) inserts. IKJEESll is called. 


IKJEES10 


IKJEES10 




2 


Pointers to the command buffer and the PCL are put in the PPL and PARSE is invoked 
to check syntax of the command parameters and build the PDL. If the return code is 
> go to send warning message and terminate. 

If the text length is greater than 115 bytes, the test is truncated and the warning 
message flag for truncated test (FMSGO) is set in COMMON. The TEXT is moved 
to MSGTEXT. 


IKJEESll 


DOPARS 




3 


If USER is specified go to continue PDL examination and send messages to user. 
Otherwise process the OPERATOR request. 




TUSER 




4 


The routing code, which specifies the console to receive the message, is set in the 
WTO LIST. If the routing code is not specified, the default is to the master console. 
If the routing code is specified, it is converted to binary and used as an index to a 
table of routing codes (ROUTCD). The table entry is put in WTOLIST. 

The maximum length of a WTO is 72. The length of the message (text + the 
senders ID) is checked to see if two WTOs are required. The message is constructed 
in the WTOLIST and WTO is issued. 




WTO LI 

WTOL2 
WTOL6 





I PPLANS in PPL i 




PPLANS 



TEXT in CB I 



2-5 





WTOTEXT 



WTOROUT 



WTODESC 
X'0005' 




MSGTEXT 





WTO I 
SVC 



TEXT' 




\ USERID 



FF000000 



Diagram 2-2. Initialize and WTO 
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R6 



N 



PDL 



Flags 



IDf 



F LOGON 



FNOW 



FMSG7 



VALCNT 



COMCPPL 



PDL PTR 



IDCNT 



IDTBL 



COMMSG7 



COMRETC 



ID* 



CVT 



/V 



TJID 



init = 1 



h 



~t(7 LAST PDE 



ID* 



'FF000000' 



TSCVT 



TSCVTTJB 




TSCVT NT J 



TSCVTSZU 



TJB size 



TJB PTR 



TJB ARRAY 

TJID = O (not used for ^L 

user jobs) 



TJID = 1 



TJBUSER 



ID of job owner 



TJBTJID 



Terminal Job ID 



r 



TJID =NTJ 



J 



USER NOW 



; IKJEES11 I 



1 Build Send List of USERIDs to get 

message. 

2 Move message parts to buffer. 

3 Compare USERIDs from Send List against 
those from TJBs. 



4 On an equal compare, send message 
and: 

a) If user is not accepting messages 
set up for warning message, 

b) Check for completion of 
search 

c) If search not complete, 
go back to 3 

d) If search complete and 
LOGON go to 

e) If search complete and 
NOW go to 



t©~ 



These two compared to find logged on users 
to receive message 



TJBUSER 
, 

I ID of }ob owner I 




message length 



►r c h-» 



TPUT 



Descrip 


t-ion 


Routine 


Label 


FC 


1 


For each user that is to receive the message, there is a PDE that points to his USERID in 
the command buffer. The SENDLIST (IDUSRID) is built from these USERIDs. The maximum 
list length is 20. PDEs after 20 are ignored. The number of ID's in the list is put in 
IDCNT in COMMON. 


IKJEES11 


IDLP 
IDLP6 




2 


The USERID of the sending user (from PSCB) is added to the text in MSGTEXT. The 
total length of the message is put in MLENG for use in the TPUT. 




SKIPDUP 




3 


The first TJB (TJID = 0) is not used for terminal jobs. The address of the TJB to be 
searched is calculated and set in TJBPTR. [.Search address = array begin address + 
(TJID X size of TJB)]. To search the next TJB, TJID is incremented by I and the 
search address is recalculated : the end of the array has been reached when TJID 
(number of TJBs searched + 1 ) > NTJ (number of TJBs). 

For each TJB, each ID in the Send List is moved to WORK8 and compared to the 
ID of the job owner ( TJBUSER ). 




TJBLOOP 

TJBL2 
CHUSL 





Description 




Routine 


Label 


FC 


4 When a 


TJB belonging to a user in the Send List is found : 




TPUT1 




The terminal job ID from the TJB (TJBTJID) is moved to TPTJID, the message length 
is moved to R5, and a pointer to MSGTEXT is moved to Rl ; then the TPUT macro 
is issued to send the message. 








°) 


A return code of X '0C ' means the user is not accepting messages. If 
LOGON was specified (FLOGON in COMMON = 1 ) the message will be 
sent to the Broadcast DS, otherwise the " user- not -accepting " warning 
message flag (FMSG7) is set and the users ID is put in MSG7INS for use in 
the warning message. 








b) 


If either the message was accepted or the warning message flag was set, the 
ID in Send List is blanked, its processing is completed. VALCNT (the 
number of IDs processed) is incremented by 1 . If VALCNT = IDCNT (number 
of IDs in list) then all ID processing is complete. 




UPVAL 




c) 


If VALCNT £ IDCNT go back and process the next TJB. 








d) 


If VALCNT t IDCNT and LOGON was specified (FLOGON = 1 ), go write 
messages to the Broadcast Data Set. 








e) 


If VALCNT^ IDCNT and NOW was specified (FNOW = 1), go send warning 
messages if any. 









Diagram 2-3. User Now 
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USER LOGON 



Rl 



CPPL 



1 



/ 



COMMON 



FENQI 



FENQUSD 



FCHAIN 



VALCNT 



COMCPPL 



CPDLMSGT 



!DCNT 



IDTBL 




PSCB 



PSCBUSER 



PDL 



f TEXT 



MSGTEXT 



IDUSRID 



SEND LIST 



VALCNT = IDCNT 

all possible text messages sent 



IKJEES10 



1 Allocate SYS1 .BROADCAST. 

2 Open. 

3 Read Record l . 

4 Read Directory Record. 

5 Find USERID. 

D Check to see if user presently 
has mail. 

7 Write new mail. 

O Write record with pointer to 
new mail. 

9 Repeat from step 4 till end of 
directory or all messages 
sent. 

"10 Then go send warning messages 
and cleanup. 



This call, with changed function codes, is 
made for steps 2, 3, 4, 7 and 8. 



SDIOPARM 



PARM 1 


PARM2 




PARM RBA 


PARM IOAD 



2-5 





OPEN — PARM1=X'£ 
READ — PARMl^X'40' 
WRITE Dl — PARM2-X'80' 
WRITE DAF ~PARM2=X'40' 
CLOSE — PARM2=X'20' 



MSGAREA2 



SENDER ID 



Description 



Routine 



Label 



FC 



Description 



Routine Label FC 



"1 Dair is called, DAPL is fully set up. Since the data set is cataloged only the code ' 08 ', 
the data set name, and the disposition need be put in DAPB08. DAIR returns the 
Ddname in DAPB08. 

2 SDIOPARM is set with the function code and the Ddname and IEEVSDIO is called to 
open the broadcast data set. If the return code = 0, the open flag in COMMON is 
set. If return code ^ 0, go to send warning message and terminate, 

3 The function code is set for READ, the I RBA for record 1 is set to PARMRBA and the 
address of RECIAREA is set in PARMIOAD. IEESVDIO returns record 1 to 
REC1AREA. If return code ^ go to send warning message and terminate. 

4 Before reading the DIRECTORY RECORD, MSGAREA2 is initialized with the record 
to be written (the message), the user ID of the sender is obtained from PSCBUSER in 
the PSCB and the TEXT from MSGTEXT. SDIOPARM is set with the function code for 
READ, the address of DIRAREA (to receive the record) and the f RBA of the first 
directory record (obtained from RECIAREA which holds record 1). IEEVSDIO is 
called. If return code £ go send warning message and terminate. 

5 Each USERID in the directory record (now in DIRAREA) is compared against all IDs in 
the SEND LIST. When the record has been completely searched the next directory 
record (pointed to by the chain RBA in the present directory record) is read. The same 
steps are repeated until either: the last directory record (RBA field = 0) has been 
searched, or all IDs in the SEND LIST have been found (VALCNT = IDCNT). For 
either condition, processing is finished, go send warning messages. 


IKJEES10 


DODAIR 

SENDER 
READUSD 

SCANUSD 





© When a match is found (USERID from Send Test = USERID from directory record) : 

The count of found IDs (VALCNT) is incremented, the RBA associated with the USERID 
in the directory record is examined. If the RBA £ 0, the user already has a mail record 
chain. FCHAIN in COMMON is set to ' 1 ' to record the fact and the user mail records 
(pointed to by RBA in directory record or mail record) are read until the last on the 
chain (RBA = 0) is found. 

7 Set the function code to write to free space (WRITE DAF). Set PARMRBA with the 
RBA of the first mail directory record to start the BDAM extended search. Set 
PARMIOAD with the address of MSGAREA2 (it contains the send message). Set 
PARMKEY with '03 ' the key written for a user mail record. 

8 FCHAIN in COMMON is tested to see what record will point to new mail : 

if — — — directory record must be written: put feedback from WRITE DAF into directory 
record, set PARM RBA to point to RNUSD (it contains the RBA of the 
directory record in which the USERID was found), set PARMIOAD with the 
address of DIRAREA (the record to be written), set PARMKEY to '01 ' 
(key for directory record, set function code to WRITE Dl, and call 
IEESVDIO to write the updated record.) 

if = 1 — mail record must be written: put feedback RBA in mail message record, 

set PARMRBA to address of RNUSM, PARMKEY to '03 ' and call IEEVSDIO 
to WRITE 01. 

9 If VALCNT fi IDCNT, go back and check next USERID in directory record against 
SEND LIST. 

10 If VALCNT = IDCNT, then all possible send messages have been sent. 
Go send warning messages. 




VALIDID 
CHAIN4 

NOCHN1 

CHAIN3 

TESTWRIT 
TESTWRIT 





Diagram 2-4. User Logon 
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Entry to this function is at 1 , 2, 3 or 6. 

The first two ( 1 , 2) are abnormal conditions requiring termination before completion. 

The third is detected just before the end of processing and requires the sending of 

unexpected messages. 

The fourth (6) is the normal entry at end of processing. 



Warning Messages 




Rl 




COMMON 




DAIRRETC 




Flags 




Return code 
from Dair 




| FMSG7 | 










FMSGO 


RFTC 












FBADPUTL 




Return code 
to this 
module (S10) 








VALCNT 






IDUSRID 




COMCPPL 








Send List 
(unblanked 
IDs not 
serviced) 




IDCNT 




IDTBL 








COMMSG7 












<AASG7INS 




COMRETC 




Inserts for 
MSG7 
( IDs not 
accept.) 




IKJEES20 






SEND 

MESSAGE 

MODULE 











1KJEES10 



(!) 
® 

(3) 



® 

(5) 



DAIR return code > zero. 

a) call DAIR diagnostic ^_^ 

b) then go to normal end (6) 



© 



Other return code ^> zero. 

a) set up selected message 

b) then go to send message 

Some USERIDs not found. 

a) set up selected message 

b) then go to send message 

Issue PUTLINE to send message 



PUTLINE return code >zero. 

a) remember PUTLINE error 

b) set up selected message ^_^^ 

c) then go to send message (4) 

Check for stored messages ? 

a ) Yes — go to 4 to send 

b) No — cleanup and return to 

TMP 




IKJEFF18 



LOAD &CALL 



LOAD & CALL 



IKJEFF02 



^> 



MSGPARM 



MSGID 





See " Dair Failure 
Messages " Section 5 



LINK 




IOPL 



PTPB 



IKJPUTL 



PUTLINE 

Parameter 

Block 




SVC 




See "Send Termination and Warning 
Messages " Section 5 




Description 


Routine 


Label 


FC 


1 The Common Dair Failure message routine is called to analyze the failure and send messages. 
Parameters are DAPL, which points to DAPB08, and DAIRRETC. The message Interface 
routine sends the message before returning to IKJEES10. After return, processing is as for 
a normal end. 


IKJEES10 


BADDAIR 




2 All other messages are issued by IKJEES10 using the PUTLINE macro. The putline parameter 
block (PTPB) contains buffers for message components and descriptor fields to describe the 
structure of the message. IKJEES10 analyzes return codes and failure conditions and sets 
up the PTPB with message components from IKJEES20. USERIDs are put in the buffer from 
blocks known to S10 and return code inserts are converted to EBCDIC before they are put 
in PTPB. 

IKJPUTL, invoked by the PUTLINE macro uses the PTPB to compose the required 
message and sends it to the terminal. 




CONVRETC 




The non-zero return codes causing entry at ( 2 J come from: 








TPUT — the return code is analyzed by SI 1 . Entry here means that the message required 
is — "Command System Error + Putline Error Code ' 




BAD TPUT 




PARSE — if the return code is 16, the "not enough main storage " message is sent. 

For all other codes the system error message with the PARSE return code is sent. 




BADPARSE 
NOMAIN 




IEEVSDIO — return code - X '01 ' ; message - no room for MAIL in BROADCAST DS 




BADIOA 




X '02 ' ; can't open BROADCAST DS 




NOTUSABL 




X '40 ' ; not enough main storage 




NOMAIN 




other ; BROADCAST DS synad error 




NOTUSABL 





Descri 


3tion 


Routine 


Label 


FC 


3 


At the end of the TJB search ( NOW specified ) or at the end of the User Directory search, 
if VALCNT^ IDCNT some IDs in IDUSRID have not been found. PTPB is set up to send : 
NOW — 'USER(s) - user id(s) - NOT LOGGED ON ' 
LOGON — 'INVALID USURID(s) - user id(s) - + USER NOT AUTHORIZED FOR TSO ' 

For both messages, the user id inserts are all non-blank positions 
in the SEND LIST. 




MSG20UT 
SCUSD3 




4 


IKJPUTL locates the sending terminal (from user information in IOPL), arranges the message 
segments and inserts as directed by PTPB, and sends the message. 




WARNMSG 




5 


A non-zero return code from IKJPUTL means: 

code = 16 — not enough main storage to execute. 

code = other — putline failure. 
In both cases the message being sent is lost. For the not enough storage code the NOMAIN 
message is set up in PTPB and another try is made to use PUTLINE. This is done repeatedly 
until some code other than 16 is received. (Storage becomes available). 
For any other failure code (not 16, not 0), a bit in COMMON (FBADPUTL) is set to 
remember the failure and an attempt is made to send the 'Command System Error ' message 
including the Putline error code. A second failure causes termination without further 
messages. 




NOMAIN 
BADPUTL 
EXITO 




6 


For a normal termination, the stored message bits in COMMON (FMSGO — for message 
has been truncated and FMSG7 for users not accepting messages) are inspected and the 
required messages are sent. MSG71NS (pointed to by COMMON) furnishes the inserts 
for the not accepting message. In all cases control is returned to TMP with a return 
code of 0. 




EXITCODE 

MSGOOUT 
MSG70UT 
EXITS 





Diagram 2-5. Warning Messages 
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Section 1. Introduction 



The SUBMIT command processor lets the user submit a job for 
interpretation and execution in the background. SUBMIT is a part of 
the Foreground-Initiated Background (FIB) facility of TSO. Figure 
1-1 presents the four commands of the FIB facility and shows how they 
relate to each other and to the system. 

Command Format 

The format of the SUBMIT command is: 

SUB [MIT] dslistC (NOTIFY) or (NONOTIFY)] 

where 

dslist is a list of data set names defining an input stream (JCL 
plus data) . 

NOTIFY is a default keyword requesting the final status of a JOB, 
JOB statements generated by the SUBMIT command processor include 
the NOTIFY parameter. 



When a job has finished processing in the background 
a message will be placed in the Broadcast data set for 
the terminal user. To receive this message the user 
must either issue the LISTBC command or relogon, 
whereupon he will receive any messages that might have 
been stored in the Broadcast data set during his last 
terminal session. 



NONOTIFY is a keyword requesting that generated JOB statements 
not include the NOTIFY parameter; the terminal user will not have 
a final job status message placed in the Broadcast data set. 
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The FIB facility comprises four commands : 
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allows the terminal user to put existing Data Sets on the BRDRQ, 
stage \AJ below. From there the {obs defined by the Data Sets 
are processed as normal background jobs. 
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CANCEL/ STATUS -- allows the terminal user to have jobs at stages (T) (c) (d) (e) 
marked Failed (and thus terminated ) or to have status information 
about them sent to the terminal. 



OUTPUT — 



allows the terminal user to have a job, waiting at stage (F ) 
(MVT OUTPUT QUEUE ) moved to another queue, delivered as 
output at the installation, or delivered as output at the terminal 
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Figure 1-1. Foreground Initiated Background (FIB) Facility 



Data Set Naming Conventions 

A data set name within apostrophes is considered to be fully qualified 
and completely stated; the SUBMIT command processor will accept it 
as entered. A data set name not enclosed within apostrophes must 
conform to TSO naming conventions. It must contain at least two of 
the following fields: 

• Userid (required) 

• One or more user-supplied names (optional) 

• A descriptive qualifier (required) 

The total length of the data set name must not exceed 44 characters # 
including periods. The convent ial name is of the form: 

USERID. (user supplied name), qualifier 

The parenthesis indicates optional. 

Data Set Restrictions 

A data set specified in the dslist parameter must be a sequential 
direct access data set or a member of a partitioned data set. Logical 
record length must be 80 bytes. 

Operational Considerations 

More than one data set can be listed in the dslist parameter. Blocking 
factors may differ from one data set to another but the logical record 
length must be 80 bytes. 

The input stream may contain more than one job. In this case, each 
job will be considered as a separate submission and an output data 
set will be created for each job. 
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Section 2. Method o£ Operation 



This section summarizes the method of operation of the SUBMIT command 
processor. It includes method of operation diagrams which illustrate 
basic functions. 

Summary 

The SUBMIT command processor lets the user submit a job for 
interpretation and execution in the background. You must set up an 
input job stream (JCL plus data) on one or more data sets and include 
the data set name(s) as an operand of the SUBMIT command. 

The SUBMIT command processor reads records from your data setCs) , 
copies the records to a Submit output data set (one for each job), 
and places the Submit data set on queue number 55 of the MVT job queue 
(BRDR Q) . A special background reader (BRDR) interprets the job, using 
the MVT reader/interpreter as a subroutine to build standard tables 
and control blocks. The job is later executed under control of the 
MVT initiator/terminator, just like any other MVT job. 

Method of Operation Diagrams 

The rest of this section consists of method of operation diagrams which 
illustrate basic functions. Each diagram contains a cross-reference 
table to help you find corresponding flowcharts or sections of code. 

NOTE: The diagrams are at the back of this PLM. 
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Section 3. Program Organization 



This section describes the program organization of the SUBMIT command 
processor. There are three parts to this section: 

• Program Hierarchy Chart — Figure 3-1. 

• Function Tables — which show the overall logic of individual 
routines. 

• Flowcharts — which show the detailed logic of individual 
routines. 
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Figure 3-1 • HIERARCHY 
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Hierarchy 

The SUBMIT command processor is composed of 18 separate routines: 

L0AD1 — SUBMIT 

IKJEFF01 - Calls service routines to have command parsed and input 

data sets allocated. 
IKJEFF02 - Processes messages. 
IKJEFF03 - Contains messages. 

L0AD2 — IKJEFF04 

IKJEFF04 - Initializes tables and control blocks. 

IKJEFF05 - Reads records from the input data sets. 

IKJEFF06 - Processes records. 

IKJEFF07 - Identifies records as JCL or data. 

IKJEFF08 - Generates default JOB statement , if necessary. 

IKJEFF09 - Presents parameters to installation exit routine. 

IKJEFF11 - STAE exit routine. 

IKJEFF12 - Writes records to the Submit data set. 

IKJEFF13 - Prompts for additional character to form jobnaroe, 

if necessary. 
IKJEFF1U - Compresses input record to form output record. 

LOAD 3 

IKJEFF10 - Installation exit routine. 

LOAD 4 — IKJEFF10 

IKJEFF15 - Allocates Submit data set. Places Submit data set on 
the Job Queue. 

L0AD5 — IKJEEF16 

IKJEFF16 - Parse macros. 
IKJEFF17 - Parse exit. 

L0AD6 — IKJEFF18 

IKJEFF18 - Common Dair Failure Message Routine 
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IKJEFFOO— Foreground-Initiated Background SVC (SVC 100) 



Entry 
Points 


The Writer Manager routine (IKJEFF12) issues SVC100. 
Upon entry , Register 1 points to the following 
parameter list: 

CPPL 
Function Byte 

1 - Allocate 

2 - Deallocate and Enqueue 

3 - Deallocate and Scratch 
DCB 

Jobname 

Message Routine List Ptr 


Operation 


• Checks for the primary command (SUBMIT , CANCEL , 
STATUS , OUTPUT or OPERATOR) • 

• Puts the program in key zero. 

• Links to one of the following routines: 

SUBMIT IKJEFF15 
CANCEL IKJEFF51 
STATUS IKJEFF51 
OUTPUT IKJEFF61 

or, if the primary command is OPERATOR, issues 
SVC 34. 


Data Areas 


None. 


Routines 
Called 


IKJEFF15 (for SUBMIT) 


Registers 


Upon exit, register 15 contains a return code, 

or X'SO 1 if the user is not authorized to use FIB. 
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IK JEFF01— PARSE and ALLOCATE Routine 



Entry 
Points 


IKJEFF01 — ATTACHed by the TMP. 

Upon entry , Register 1 points to the CPPL. 


Operation 


Prepares for SUBMIT command processing; checks 
SUBMIT parameters and allocates input data sets, 

• Builds a parameter list to be used when calling 
the Message Processor IKJEFF02. 

• Checks the user's authorization, 

• Loads IKJEFF16 and IKJEFF17, 

• Calls IKJPARS to check SUBMIT parameters and build 
a parameter list to be used when calling IKJDAIR, 

• Loads and calls IKJDAIR to allocate the input data 
sets. 

• Loads and calls the Initializer IKJEFF04 to start 
SUBMIT processing, 

• If there are errors, 

- calls the Message Processor IKJEFF02, 

- calls IKJSTCK to remove all elements from the 
stack. 


Data Areas 


Message Processor Parameter List, DAIR28, DAIR08, 
Parse Exit Work Area, CPPL, PDL, PDE 


Routines 
Called 


IKJEFF02, IKJEFF03, IKJEFF04, IKJPARS, IKJDAIR, 
IKJSTCK, IKJEFF18 


Exits 


Return to TMP through a single exit with a return 
code in Register 15: 

- no errors 
12 - errors 


Registers 


Upon exit, all registers except register 15 are 
restored. 
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IKJEFF02— Message Processor Routine 



Entry 
Point 


IKJEFF02 — called by IKJEFF01, IKJEFF05, IKJEFF09, 
IKJEFF12, IKJEFF13 # IK JEFF15 . 

Upon entry. Register 1 points to the following 
parameter list: 

• Message Routine List 

• CPPL 

• ECB 


Operation 


• Selects a message from the Message Module CSECT 
coded with the IKJTSMSG macro • 

• Inserts variable text into the message.. 

• Converts the value to printable hex, 

• Calls Putline IKJPUTL to send informational 
message. 

• Calls Putget IKJPTGT to send message requiring 
response from terminal user. 

• Calls Write-to-Operator WTO to send message to 
operator. 


Data Areas 


CPPL, Message Interface 


Routines 
Called 


IKJPTGT, IKJPUTL, WTO 


Exit 


Return to caller with return code in register 15 as 
returned from Putline or Putget (0 from WTO) . 


Registers 


Upon exit, all registers are restored except register 
15. 



IKJEFF03— Foreground Message Module 



Entry 


Not executable — referenced by the Message Processor 


Points 


routine IKJEFF02. 




This module contains messages coded by the IKJTXMSG 




macro instruction. 
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IKJEFF04— Initializer Routine 



Entry 
Points 


IKJEFF04 — called by the Parse Allocate routine 

IKJEFF01. 

Upon entry , Register 1 points to the following 

parameter list: 

• Message Routine Interface List Ptr 

• Userid 

• DD Element Chain Ptr 

• Function Code Byte 

Bit 7 = NONOTIFY 


Operation 


• Initializes the SUBMIT Control Table. 

• Initializes the History Table. 

- sets the First switch on, 

- sets the Exit switch to 'JOB', 

- sets the Nonotify switch on if function code 
bit 7 is on. 

• Loads the Installation Exit routine IKJEFF10. 

• Issues the STAE macro , specifying the address of 
the STAE Exit routine IKJEFF11. 

• Calls the Reading routine IKJEFF05 to start SUBMIT 
processing. 

• Deletes the Installation Exit routine IKJEFF10. 

• If there are errors, call the STAE Exit routine 
IKJEFF11. 


Data Areas 


SUBMIT Control Table 
History Table 


Routines 
Called 


IKJEFF05, IKJEFF10, IKJEFF11 


Exit 


Return to caller. 


Registers 


Upon exit, all registers are restored except register 
15. 
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IK JEFF05— Reading Routine 



Entry 
Points 


IKJEFF05 — called by the Initializer routine IKJEFF04. 
Upon entry , Register 1 points to the following 
parameter list: 

• History Table 

• Current Statement Ptr 

• Message Routine List Ptr 

• DD Element Chain Ptr 

• Control Table Ptr 


Operation 


Reads the input data sets (one logical record at a 
time) and calls the Control routine IKJEFF06 to 
process it, 

• Finds the DAIR08 Block pointed to by the first 
element on the DD Element Chain. 

• Moves the ddname from the DAIR08 Block to the DCB. 

• Opens the DCB. 

• Reads one logical record. 

• Sets the Current Statement Ptr. 

• Calls the Control routine IKJEFF06 to process the 
record. 

• At end-of-file for the first data set, updates the 
DD Element Chain Ptr, gets the next DAIR08 Block 
and repeats the process. 

• At ultimate end-of-file, 

- passes a /* to the Control routine 

- passes a null statement to the Control routine 

- turns off the exit switches and passes a second 
null statement to the Control routine. 


Data Areas 


History Table, DAIR08, Message Interface 


Routines 
Called 


IKJEFF06, IKJEFF02(via address) 


Exits 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IKJEFF06— Control Routine 



Entry 
Points 


IKJEFF06 — called by IKJEFF05, IKJEFF08, IKJEFF09 
and IKJEFF13. 

Upon entry w Register 1 points to the following 
parameter list: 

• Control Table PTR. 


Operation 


Copies the input data set(s) to a single output data 
set and sequeues a DSB/JFCB pointer to it. 

• Calls the Identify routine IKJEFF07 to identify the 
input statement- 

• If the first record is not a job statement , calls 
the Generate Job Card IKJEFF08 routine to generate 
a defult job statement, 

• If the exit switch for that statement is on, calls 
the Installation Exit Interface routine IKJEFF09 
which will pass control to the Installation Exit 
routine IKJEFF10. 

• If the record is a job statement, calls the Prompt 
Job Character routine IKJEFF13 to prompt the user 
for an additional character if one is needed to form 
a jobname. 

• Calls the Writer Manager routine IKJEFF12 to deallo- 
cate a previous Submit Data Set (if any) and allocate 
a new Submit Data Set, 

• Calls the Compress routine IKJEFF14 to compress the 
record (squeeze out blanks and shift to the left) • 

• Calls the Writer Manager routine IKJEFF12 to write 
the compressed record to the output data set. 


Data Areas 


CONTAB, History Table 


Routines 
Called 


IKJEFF07 r IKJEFF08, IKJEFF09, IKJEFF12, IKJEFF13, 
IKJEFF14. 


Exits 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IK JEFF07— Identify Routine 



Entry 
Points 


IKJEFF07 — called by the Control routine IKJEFF06. 
Upon entry. Register 1 points to the following 
parameter list: 

• History Table 

• Current Statement Ptr 

• Jobname Field 


Operation 


Identifies: 

• If it is JCL: 

- indicates the kind of statement • 

- whether to expect a continuation, 

• If it is data, determines what kind of data; 

- DD * 

- DD DATA 


Data Areas 


History Table 


Routines 
Called 


None 


Exit 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IK JEFF08— Generate Job Card Routine 



Entry 
Points 


IKJEFF08 — called by Control IKJEFF06 or Prompt JOB 

Character IKJEFF13. 

Upon entry 9 register 1 points to the following list: 

• Pointer to History Table 

• Pointer to Current Statement Ptr 

• Pointer to Userid 

• Control Table Ptr 


Operation 


• Generates a default JOB statement: 

//userid JOB 9 default job statement 

// userid f 

// notify=userid r 

// msglevel=(l r l) 

• Calls Control IKJEFF06 to process the JOB statement. 


Data Areas 


CONTAB r Message Interface 


Routines 
Called 


IKJEFF06 


Exits 


Return to caller. 


Registers 


Upon exit r all registers are restored. 
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IKJEFF09— Installation Exit Interface Routine 



Entry 
Points 


Called by the Control routine IKJEFF06. 

Upon entry. Register 1 points to the following 

parameter list: 

• Current Statement Ptr 

• User id 

• History Table 

• Message List Ptr 

• Submit Control Table Ptr 

• Exit Word 

• Exit Address 


Operation 


• Passes information to the Installation Exit routine 
IKJEFF10 • 

• Calls the Control routine IKJEFF06, if necessary r to 
process a changed statement. 

• Calls the Message Processing routine IKJEFF02, if 
necessary , to process any message requests made by 
the Installation Exit. 


Data Areas 


MSGLIST, History Table , CONTAB 


Routines 
Called 


IKJEFF02 (via address) , IKJEFF06, IKJEFF10 (via 
Address) 


Exits 


Return to Caller. 


Registers 


Upon exit, all registers are restored f except register 
15 which contains a return code from IKJEFF10 . 
- continue 

4 - return for another statement 
8 - put out a message and return 
12 - put out a message, get response and return 
16 . - abort 
Others - abort 
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IK JEFF 10— Installation Exit Routine 



Entry 
Points 



IKJEFF10 — Called by the Exit Interface routine 

IKJEFF09. 

Upon entry , Register 1 points to a word which points 

to the following parameter list: 

• Pointer to current statement if zero, entry is being 
made to get a statement. The current statement may 
be deleted by zeroing this pointer, 

• Pointer to message to be put out if non-zero, entry 
being made to 'RETURN 1 the message so that the exit 
may free its buffer, if any. The format of the 
buffer is 'LL-TEXT' where LL is a two- byte length of 
the entire buffer. 

• Pointer to response if non-zero, entry is being made 
to give a response to the message above. The format 
is 'LL-TEXT f . Submit will free the response buffer. 

• Pointer to userid (8bytes, padded with blanks) . 

• Pointer to JCL exit switch bytes (these switch bytes 
begin on a byte boundary) 

Byte - Take exit for these switches may be changed 
by the exit. 



Bit 
1 



- JOB 



EXEC (program or procedure) 

DD 

COMMAND 

NULL 

RESERVED 

RESERVED 

RESERVED 

Byte 1 - This byte, if not zero, gives the card image 
column that the operand field starts in 
(i.e., the value is one-origined) 
- This statement switches 

is a JOB 

is an EXEC 

is a DD 

is a COMMAND 

is a NULL 

OPERAND to be continued 

Statement to be continued 

Statement is a continuation word for 
Word for EXIT'S use. This field is initialized to 
zeroes and retains whatever value the exit gives it. 
For example, it may be used to contain values and 
switches set in one entry to the exit to govern 
control and processing in the next entry to the exit. 



2 
3 

5 
6 
7 



Byte 2 

Bit 
1 
2 
3 
4 
5 
6 
7 
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IKJEFF10 — Installation Exit Routine (Cont.) 



Operation 


User-Written can cancel jobs, establish priorities, 
change JCL, etc. (The IBM-supplied dummy zeros 
register 15 and branches on register 14.) 


Data Areas 


EXIT Switches. 


Routines 
Called 


None. 


Exits 


Return to IKJEFF09. 


Registers 


Upon exit, all register except 15 are restored. 
Register 15 contains a return code 
- continue 

t\ - return for another statement 
8 - put out a message and return 
12 - put out a message, get response and return. 
16 - abort 
Others - put out a message, abort 



IKJEFFl 1— STAE Exit Routine 



Entry 
Points 


IKJEFF11 — called by the Supervisor or by the 
Initializer, IKJEFF04. Upon entry. Register 1 points 
to a pointer to the Submit Control Table. 


Operation 


Calls the Write Manager routine to scratch the current 
Submit Data Set. 


Data Areas 


Control Table (CONTAB) . 


Routines 
Called 


IKJEFFl 2 


Exits 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IK JEFF 1 2— Writer Manager Routine 



Entry 
Points 


IKJEFF12 — called by the Control routine, IKJEFF06; 
or by the STAE EXIT, IKJEFF11. 

Upon entry. Register 1 points to the following 
parameter list: 

• Writer Manager Work Area Ptr 

• Function Byte 

1 - start of a new job 

2 - write block 

3 - write, close and enqueue 

4 - close and scratch 

• Current jobnaroe 

• Output Block pointer 

• History Table 

• Message Processor Parameter List Ptr 


Operation 


• Calls the DAIR Entry Interface routine IKJEFF15 to 
allocate an output data set. 

• Obtains and initializes an Output Block. 

• Writes a Output Block to the data set. 

• Closes the data set. 

• Calls the Dair Entry Interface routine IKJEFF15 to 
deallocate the output data set via SVC 100. 


Data Areas 


History Table, Message Interface 


Routines 
Called 


IKJEFF02 (via address), IKJEFF15, IGC00100 (SVC 100) 


Exit 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IK JEFF 13— Prompt Job Character Routine 



Entry 
Points 


IKJEFF13 — called by Control IKJEFF06. 

Upon entry , register 1 points to the following 

parameter list: 

• Message Routine List Ptr 

• Current Statement Ptr 

• Userid 

• Control Table Ptr 

• Current Jobname 

• Histroy Table 


Operation 


Compares the jobname against the userid and, if they 
are identical, prompts the user to supply an additional 
character to form a jobname of the form • useridX' , 
where X is the added character. 

• Calls the Control routine, IKJEFF06 to process the 
changed statement. 

• If unable to fit in the additional characters, calls 
the Generate JOB Card routine to generate a default 
statement. 


Data Areas 


Histroy Table, Message Interface, CONTAB 


Routines 
Called 


IKJEFF02, IKJEFF06, IKJEFF08 


Exit 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IK JEFF 1 4— Compress Routine 



Entry 
Points 


IKJEFF14 — called by the Control routine IKJEFF06. 
Upon entry , register 1 points to the following 
parameter list: 

• Pointer to next output location 

• Length of Output Area 

• Input Block Ptr 

• Length of Input Block 


Operation 


• Compresses the Input Block statement (moves to the 
left, eliminates blanks) • 

• Places the compressed statement in the Output Block. 

• Updates the Output Block Statement Ptr. 

• Decrements the space remaining in the Output Block. 


Data Areas 


Output Block 


Routines 
Called 


None. 


Exit 


Return to caller with return code in register 15: 
- normal 
4 - no room 


Registers 


Upon exit, all registers except register 15 are 
restored. 
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IKJEFF15— DAIR Output Interface Routine 



Entry 
Points 


IKJEFF15 — called by the Writer Manager routine 
Upon entry , register 1 points to the following 
parameter list; 

• TMCT (CPPL) 

• Function Byte 

1 - allocate 

2 - deallocate and enqueue 

3 - deallocate and scratch 

• DCB 

• Jobname 

• Message Routine Parameter List Ptr 


Operation 


Function 1 - allocate output data sets. 

• Calls IKJDAIR to allocate the Submit data sets, 

• Places a ddname in the caller's DCB, 

Function 2 - deallocate and enqueue Submit data sets 

• Calls IKJDAIR to deallocate the Submit data sets 
and to enqueue them on the System Job Queue, 

Function 3 - deallocate and scratch Submit data sets 

• Calls IKJDAIR to deallocate and scratch the Submit 
Data Sets, 


Data Areas 


DAPB30, DAPB18, CPPL, DCB, CVT, Queue Manager Master 
QCR, Message Interface 


Routines 
Called 


IKJDAIR, IKJEFF02 (via address) 


Exit 


Return to caller. 


Registers 


Upon exit, all registers are restored. 
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IKJEFF16— PARSE Entry Interface Routine 



Entry 
Points 


IKJEFF16 — called by Parse/Allocate IKJEFF01. 
Upon entry # register 1 points to the following 
parameter list: 

• Parse Data Name Set PDE 

• Parse Exit Work Area 


Operation 


Builds a parameter list to be used when calling 
IKJPARS. 


Data Areas 




Routines 
Called 


None, 


Exit 


Return to Parse/Allocate IKJEFF01. 


Registers 


Upon exit, all registers are restored. 



IK JEFF 16— PARSE Control List C SECT 



Entry 
Points 


None. 






This CSECT is not executable. It is referenced by 
IKJPARS for the PCL and the entry point address of 
IKJEFF17. 
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IK JEFF 17— PARSE Exit Interface Routine 



Entry 
Points 


IKJEFF17 — called by IKJPARS. 

Upon entry, register 1 points to the following 

parameter list: 

Parse Data Set Name PDE 
Parse Exit Work Area 


Operation 


Builds DAIR08 Blocks and DD Element Chains to be used 
by the Parse/Allocate routine IKJEFF01 and the Reading 
routine IKJEFF05. 


Data Areas 


DAIR08 Block, PDE, PARSE EXIT Work Area, 
DD Element Chain 


Routines 
Called 


IKJEFF02, IKJDFLT. 


Exits 


Return to Caller. 


Registers 


Upon exit, all registers are restored, except register 
15. 
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IK JEFF 18— Common DAIR Failure Message Routine 



Entry Point 


IKJEFF18 — on entry, register 1 points to a list of 
pointers to the following parameters: 

• The input parameter list used when the call to DAIR 
was made (the 'DAPI/ ), including the DAIR request 
parameter block. 

• A full word containing the DAIR return code from 
register 15. 

• A full word containing the address of message 
processor module IKJEFF02 or zeroes (in which case 
this routine will load and delete IKJEFF02) • 

• A half word containing the caller number, 1 for 
General Caller. 


Operation 


IKJEFF18 diagnoses DAIR allocation and unallocation 
failures and puts out appropriate messages to the 
terminal. 

Input to this routine consists essentially of the 
input to and the output from DAIR. Thus if the return 
code from DAIR is non-zero, IKJEFF18 may be called to 
diagnose the error. 

The sequence of operation is: 

1. The caller situation is identified (what operation 
was being performed) . 

2. A table relating return codes to their meanings 
for the callers situation is used. From this 
table a message ID for an appropriate message 
is obtained. 

3. The message ID is passed to IKJEFF02 which send 
the message to the terminal. 


Data Areas 
Used 


CPPL 
DAPL 
DAIR Blocks 


Routines 
Called 


IKJEFF02 


Exits 


Both normal and error return to caller with register 
15 set to zero. 
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Chart 01. 



SUBMIT Overview 





( ™ p > 
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B4 






IKJDAIR 

* ALLOCATES 

and 
DEALLOCATES 




IKJEFF01 

Sets Up the 
Parameter Lists 
and Checks 
User 
Authorization 




* PARSE 
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Input Buffer 
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Df 






IKJEFF16 

Interface to 
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IKJEFF17 

Builds DAIR08 
Block and DD 
Elements 
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IKJDAIR 

ALLOCATES 
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IKJDFLT 
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El 






1 

1 
1 










1 — »" 
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Interface 
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DD Element Ptr 
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F3 






IKJEFFOO 

SVC 100 

Allows Processing 

in Key 




IKJEFF04 

Initializes 

Control 

Table 




IKJEFF11 

CALLs WRITER 
MANAGER to 
Scratch Data Set 










. 


G 




' 


G2 










IKJEFF12 

WRITES Out all 
Information 






IKJEFF05 

Opens & Closes 
Data Set 
READs Cards 














HI 






' 


H2 




H3 






IKJEFF14 

Compresses 
Blanks Out of 
Cards 






IKJEFF06 

Controls the 
Flow of Input 




IKJEFF07 

Identifies Cards — 
Update 
HISTORY Table 






















Jl 






J3 






IKJEFF09 

Exit 
Interface 






IKJEFF13 

Adds 

Additional 

Character 






3 
er Return 








"1 
1 


IKJEFF1 
May e in- 




1 


Kl 






' 


13-1 

K3 


1 

1 

I 


to 06 or CALL 08 
if it has 




IKJEFF10 

Changes or 
Deletes Cards 






IKJEFF08 

Generates 
JOB Card 


1 
1 


to Add a 
Characte 


»r 
















' 












C - ) 
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Chart AA. IKJEFF01. 



PARSE and ALLOCATE 



( Enter J 



The Control 
Blocks and 
Tables are 
MSGTABLE 
and EXAREA 



I nit Parameter 
List for PARSE, 
DAIR and Msg 
Rtn 



PARSE and ALLOCATE 

Routine Builds a Message Routine Interface. It 
also Builds an Interface for, LOADs, and CALLs 
PARSE to Scan the Input Buffer from TMP and 
LOADs and CALLs DAIR to Dynamically 
ALLOCATE a Data Set. 



C3 



For this Test, the 
'SUBIT* Bit in the 
PSCB is checked. 




the User \ No 
Authorized 
? 

Yes 



PARSE Obtains its Control Block 
Options from PCL IKJEFF16. 
16 has the Address of IKJEFF17, 
Entered as an Exit from PARSE, 
which Builds DAIR08 Blocks & 
DD Element Chain. Parse & 16 
Loaded here. 



CALL 

IKJEFF02 to 
Put Out 
Messages 



< " ) 



CALL 
PARSE 



Return Codes 

— Good Return 

4 — Unable to Prompt so Reset STACK 

8 — ECB Posted 
12 — Invalid Parameter 
16 — No Space Available 



Invoke the 
STACK Rtn 



NONOTIFY Indicates 
that the Keyword 
NOTIFY will not be 
Placed on a Generated 
JCLCard 




STACK is a Facility in TSO 
which Controls the 
Source of Input. Here we Wish 
to Reset the STACK Ptr to 
Point to the Terminal as the 
Source of Input. 



Turn 

NOTIFY 
Bit On 



Free the Storage 
for DAIR08 
Blocks 



Free the PDE 
Control Block for 
Data Set Names 
& NO/NOTIFY 



DAIR28 Blocks Contain Pointers 
to all DAIR08 Blocks. 
DAIR08 Blocks are Equivalent 
to having a DD Card. The 
Initialization Process is that Ptrs 
are Set to the DAIR08 Blocks 
Built by IKJEFF17. 



H3 



Turn any 
Non-zero Return 
Code into 12 



J2 



Get Storage for 
the DAIR28 
Blocks; 
Init DAIR28 



TSO UTILITY 
Routine for 
Dynamic 
Allocation 



Put Out PARSE 

Error 

Message 



CALL 
IKJDAIR 
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Chart AB. IKJEFF01. PARSE and ALLOCATE 




' Test \B2 
"^Return Code >v Non-Zero 
from DAIR 



Now that the User is 
Authorized and no 
Errors have been Found 
~ Wish to Go to 
Initializer to Start 
Processing. Initializer 
is also Loaded and 
Deleted in 01. 



MSGID of 
'01 B 



CALL DAIR 
Error 
Handler 
IKJEFF18 



CALL 

INITIALIZER 

Routine 



Set MSGID 
for SUBMIT 
Terminated 
Message 



Zero Indicates 
No Errors 




Return Code\ Non-Zero 
from INITIA- 
LIZER^ 
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Chart BA. IKJEFF02. 



MESSAGE PROCESSING 



( Enter J 



This CTR is the 
Count of Msgs 
Chained. The 
Limit is 20 



Set CTR 
to 



The First Four 
Bytes will be 
Used for Buffer 
Header 



Set Maximum 
Length of 
Msg to 120 



This Routine Puts Out all Messages. 

The Messages may be Fixed Segments 

or they may be Fixed Segments with Variable 

Insertions. If the Message Contains Several 

Lines, that is Multilevel, the Entire Message 

(in total) is Built in Core Before it is Put 

Out. 



Set Ptr to 
First Msg 
in CSECT 



It is within this 
Build Buffer that 
all Messages are 
Formed — Static 
Parts & Dynamic 
Parts if Indicated 







Set Build 
Buffer Length 
to Four 



IDSEARCH " 

„ Are\ F2 
there any 




Build a Msg 
of 

MKJXXXXI 
No Such Msg' 



Not Equal 



Increment 
Ptr to Next 
MSGID 



Equal 



-© 



Add 1 to the 
CTR of Messages 
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Chart BB. IKJEFF02. MESSAGE PROCESSING 



The Partiength Field is the 
Area which Indicates 
whether an Insertion is 
Required within the Msg. 
Non-Zero Indicates that a 
Fixed Msg Segment Needing 
No Insertions Follows in 
CSECT. 



CI 



Unpack the 
Variable 




VARLOOP 



Reset the 
Pointer to 
the Unpacked 
Version 



Retcode is either 


Set to 0, or 


Obtained from 


Reg 15 in 


PURINE, or 


Obtained from 


Reg 15 in 


PUTGET 





F3 



SKIPUP , f G2 



Truncate 
Everything after 
the Max Value 
Allowable 



Set Ptr to Next 
Variable 



GETMAIN 
Core for the 
Message 



Move Variable 
into Msg 
Area 




Move the 
Message into 
the Gotten 
Core and Chain 



Direction of Chain 
Depends On 
whether this is 
PUTLINE or 
PUTGET. 





Data is 
Always 
Single 
Level 
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Chart BC. IKJEFF02. MESSAGE PROCESSING 



Message Reversal 
Yes — Indicates 
that- a Second 
Level Message will 
be Built First 




Obtain the 
Addr of the 
Build Area 



C3 



Put List Form 
of PUTGET 
MACRO in 
Parm List 



LOAD 
IKJPUTL 



Put Out a 
Message 



Put Out a 
Message 



Delete 
IKJPUTL 
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Chart CA. IKJEFF04. MESSAGE PROCESSING 



IKJEFF04, the 

INITIALIZER Routine, 

Initializes Two Major 

Tables -- HISTORY and 

CONTROL. 

It also Loads the 

INSTALLATION EXIT Routine 



A2 



f Enter J 



Turn On First 
JOB, and JOB 
Exit Switch in 
HISTORY Table 



NONOTIFY Signifies 
that the Keyword 
NOTIFY is Not to be 
Put On a Generated 
JOB Card 




One of the Primary Interface 
Tables is the HISTORY Table. 
This Table Contains Three Sections - 
One to Keep a History of which 
Module is Executing, One to 
Keep History of Current JCL 
Statement, One for Static History. 



C3 



Turn On the 
NONOTIFY 
Sw in the 
HISTORY Table 



Address of CONTROL 
Table, HISTORY 
Table, Userid 
Contained within 



INITIALIZE 
CONTROL 
Table 



Prepare 
Parameter List 
for STAE Exit 
and READ 



IBM Supplies a 
Dummy 



F2 



LOAD the 

INSTALLATION 

Exit 



Issue 
STAE 
MACRO 



STAEXIT - 

IKJEFF11 -is Entered when 
Because of an Error, SUBMIT 
wants the Output Data Set 
Scratched. It can also be Entered 
Independently by the SUPERVISOR 
when Abend Occurs. 



This Error is 
Indicated by the 
QUIT Switch— which 
is Turned On when an 
Unrecoverable Error 
is Encountered 




8 Signifies 

The QUIT Switch 

is On 



An Error \^ Yes 
l Detected 



CALL 
STAEXIT 

Routine 



Set Return 
Code to 8 



J5 



J- ^ E " d ) 
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Chart DA. IKJEFF05. READ 



A2 



( Enter J 



The READ Routine, IKJEFF05, Opens 
the Data Sets, Reads in the Input to 
be Passed to the CONTROL Routine, 
and Closes all Data Sets 



Turn READ in 

Sw 

(In HISTORY 

Table) On 



C2 



Point to 1st 
Element of 
DD Chain 



ALLAGAIN 



Copy the DCB to 
Dynamic Core, 
Indicate that this 
is 1st READ, 
Clear READ Sw 



n 



The Curr dd Points to the 
DAIR08 Block. When the 
Curr dd is Zero, this Indicates 
that there are no More Data 
Sets to Process 



Obtaining Address for a Bad 
Open (213 Exit) 
DCB Exit (for Open) 




The Wrapping Up Process is the Ultimate 

End of SUBMIT Work. It is Performed after 

there are No More Data Sets to be Processed . 

The WRAPUP is Done in Three Stages — 

a 1 * is Generated to Delimit the 

End of the Input Stream, then a // 

is Generated to Delimit the End of a Job — 

and a Second // is Generated and Processed 

to be Sure that in Case the 

First One was Deleted, the Second One 

will End the Job. They are Known Respectively 

as WRAP1 , WRAP2, and WRAP3. 



INITIALIZE 
a 1 * Card 
to be 
Processed 



JL0 



Set Up STAE 
Interface 



Force DCB Attributes 
in Order to Prevent 

Errors On Empty 

Data Sets or 
Invalid Sizes 



G3 



This is Determined by a 
FAILCODEof 'OS 1 . 
ThisFAILCODEis 
Indicated within the 
SYNAD Exit. (All 
Non-zero FAILC ODES Ir 
Errors within Read Rtn) 



Open the 
Data Set 



If Not 1 
Indicates 
Bad Open 



/pCBEXn 

T 1 — 



Force the 
BLKSIZE and 
LRECL to 80 if 
Necessary 




Msg 

Indicates 
a Bad Open 



BADOPEN 



The ReREAD Sw is 
Turned On when we 
are Dealing with 
Concat Input Data Sets 




STAE Code 
Executes 



H5 



Put Out Error 
Msg 




No 


Turn 

READ -in 
SwOff 




CALL 
IKJEFF06 




Turn 
READ 




A' 






SwOn 


© 






1 
1 , 






i 



06 is the CONTROL 
I Routine, it Initiates the 
Further Processing of Data 
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Chart DB, IKJEFF05, 



READ 



QUIT Indicates an 
Error from the 
CONTROL Rtn or 
from any 
Processing Beyond 



The Question which 
is Actually being 
asked is if all Data 
in the Input Stream 
has been Processed 
and a /* Card has 
been Generated. 



Turn the QUIT 
Sw On 




"© 



OUT 




Has the 
Wraping Up 
Process 
been 
done 



01=Alloc 
Failure 
02= Open 
Failure 
03=SYNAD 



This Point in this 
Line of Flow is 
Only Reached on an 
Input End-of-file, 
hence from here we 
Go to ALLAGAIN to 
Start the Next 
Data Set 



Indicate that 
the Second 
Null Card is to 
be Processed 



The EXIT Switches 
Indicate the Type of 
Card the Installation 
Exit is Accepting. 
When all Switches 
are Off, the Exit 
will not be Entered 



Turn the EXIT 
Switches Off 
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Chart EA. IKJEFF06. 



CONTROL 



( Enter J 



The Subroutine Internal to 
this Code Called, 
CODECHECK Checks to see 
if the QUIT and POSTBIT 
Switches are on and the 
STMT PTR Sw is Zero, In any 
of the Cases, CONTROL is 
not Returned to CALLER. 



Identify what Kind of 
Card is being Looked 
at. 



FLUSH Sw Indicates that a 
Null Card has been 
Processed and the CJOB Sw 
Off Indicates that we are 
not Looking at Job 
Cards. 



FIRST Sw Off Indicates that 
we have Completed 
Processing of the First JOB 
Card ~ CDATA Sw on 
Indicates that the Input is 
Data (Not JCL) 



CJOB Indicates 
that a Job 
Card is being 
Processed 



Increment the 
CONTROL 
Routine 
Counter 



CALL 

CODE- 

CHECK 



This Routine Initiates the Actual Processing for SUBMIT. 
The Processing Logic is Driven by this Routine which in 
Effect is Calling Subroutines: 

CALLs IDENTIFY - IKJEFF07; 

GEN JOB - If the First Card is not a Job Card; 

PROMPTJOB - If Dealing with JOB Card; 

WRMGR - For Writing Records, Allocating and Deallocating 

Data Sets; 
COMPRESS - Squeezes Records into Output Area. 



CALL 
IDENTIFY 
Rtn 
IKJEFF07 




PROMPTJOB Routine - 
This Routine Prompts 
the User for 
Additions to Complete 
his Job Name, 
if Applicable. 



CALL 
IKJEFF13 



CALL- 
CODE - 
CHECK 



-0 



Module 9 is the 
EXIT INTERFACE 
Rtn. Interfaces 
W/INSTALLATION 
Exit 



Not -Accepting 






1 


H4 




H5 


H3 
X. Accepting 


CALL 
IKJEFF09 




CALL 
CODE 
CHECK 








CALL 
WRMGR 
with 
Dealloc Code 



CALL 
CODE 
CHECK 





Yes 


K3 




K4 




K5 


K2 


Copy the Last 

Identified 

JOBNAME 




Turn the 
FLUSH Switch 
and FIRST 
Switch Off 




CALL 
WRMGR 
with Alloc 
Request 
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Chart EB, IKJEFF06. 



CONTROL 



The FLUSH Sw Indicates that 
all Cards after the Null Card 
will be Disregarded until 
a JOB Card is Encountered 



COMPRESS Rtn Compresses 
the Data so that it may be 
Stored Concisely in the Data 
Set 




-© 



Turn the 
QUIT Sw On 



CALL 
COMPRESS 



CALL 
GENJOB 



I If the NO Branch is taken, then 
the Exit must be Deleting Cards 



NON-ZERO Return Code 
Indicates the Compressed 
80-byte Records Overflowed 
the Data Set 




Non-Zero 



CALL 

WRMGR with 
Write Block 
Out and 
Re-init Request 




Zero the Stmt 
Ptr and 
Decrement 
Control Counter 



_L_ 



Indicated by a 
Function Code of 
2 



G2 



C End ) 
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Chart FA, IKJEFF07. IDENTIFY 



f Enter J 




Turn On 

DELIMITER 

Switch 



Turn On the in 
IDENTIFY Rtn 
Switch in 
HISTORY Table 



Set the End 
of Col Limit 
to 71 



The IDENTIFY 
Routine Scans Each 
Input Card and then 
Identifies the Type of 
Card. This 
Information is made 
Known Through the 
Switch Settings in 
the HISTORY Table. 



SKIPOVER is a 
Subroutine 
whose Function is 
to Skip to Next 
Non-Blank Field. 
Here, Skips to 
VERB FIELD 



CALL 
SKIPOVER 



SKIPTOisa 

Subroutine whose 
Function is to Skip to 
the Next Blank 



CALL 
SKIPTO 





So Done 




Turn On the 


Because 




WORKING WITH 


Card 




DATA or DD * 


is Not 




STMT Switches 


JCLCard 







CHKCON ,■ 



If Expecting 
Continuation, 
Turn On 
Continuation 
ERROR Switch 



The Updated 
Switches Correspond 
to the Card in the 
Working Buffer. 
The Update is Done 
by Copying the 
Working Switches. 



Turn the 
NAME Sw 
On 



F4 



Update 
Switches ir 
HISTORY 
Table 



Turn Off 
the in 
IDENTIFY 
Routine Switch 




( w ) 
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Chart FB. IKJEFF07. IDENTIFY 




Copy the 
NAME On 
JOB Card 







C3 



Turn On the 
WORKING 
with NOTHING 
Switch 



Indicate that a 
NULL Card 
is being 
Processed 




Turn On the 
CONTINUATION 
EXPECTED 
Switch 



F4 



Change the 
Present JOB 
Card into 
COMMENT Card 



H3 



Copy the 
Previous 
VERB 



CHKOP16 

. Is\ H4 
Operand 
Continuation "" 
Expected 





46 SUBMIT 



TSO Command Processor PLM - Vol, 6 (Release 20.1) 



Chart FC. IKJEFF07. IDENTIFY 




CALL 
SKIPTO 



CI 



SKIPTOQ 
Is an Internal 
Subroutine 
Whose Func- 
tion is to Skip 
to Quotes and 
Searches for 
Pairs. 



C2 



CALL 
SKIPTOQ 



D3 



Set OPERAND 
CONTINUATION 
EXPECTED 
switch 





CALL 
SKIPTO 



H2 




CALL 
SKIPOVER 



Then, Turn on 
the COMMAND 
Switch 
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Chart GA. IKJEFF08. GENJOB 



( Enter J 



This CTR is Counting 
the Number of New 
JCL Cards that will be 
Generated. Four will be 
Created and the Fifth 
One will be the 
Original Card 







B2 




Increment 
the in 
GENJOB CTR 






C2 




Hold Aside 
the Original 
Input Card 






D2 





Set CTR 
to 5 


M 






^y 


BLANK < 


r E2 




INITIALIZE 
First and Second 
Cols of Newly 
Formed Card 
with// 




1 


F2 




Subtract One 
from CTR 






r 



The GENJOB Routine 
Builds a JOB Card with c 
Card Continuation. 




Place 

MSGLEVEL = 1 
( 1 , 1 ) on 
Last Card 



Find Last 
Non-blank 
Character & 
Place Comma 
for CONT 



CALL 
IKJEFF06 
(Passing to 
it Addr of 
New Card ) 



© 




Reprocess the 
Original Card 



CALL 
IKJEFF06 
CONTROL Rtn 



Decrement in 

GENJOB 

CTR 



If the CTR is 4 
Place Userid 
and VERB JOB 
On Card 



( End ) 





Place 
NOTIFY on 

the Card 



-® 



When NONOTIFY is Specified, 
Only Three New JCL Cards are 
Generated . 
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Chart HA. IKJEFF09. EXIT INTERFACE 



f Enter J 



Turn the in 
EXIT 

INTERFACE 
Rtn Sw On 



This Routine, IKJEFF09, Provides the 
INTERFACE to the INSTALLATION EXIT. 
It also Channels the Return from the EXIT 
to the Calling Routine. 



C2 



Set Ptrs to Card , 
Userid, Swits, 
Takexit, Operand 
Exit Word 



Type Involves: 

JOB CMD 

NULL 

EXEC CO NTS 

DD 



Turn the Sw 
On Indicating 
what Type of 
Stmt this is 



Save the 
Original Card 



f® 



The Original Card 
is. Saved for 
Comparison Because 
the INSTALLATION 
EXIT may Change 
the Card 



CALL EXIT 



INSTALLATION 
EXIT Got a 
Response from the 
User LastCal 
now Free the 
Buffer 




Free the 
Response 
Buffer 



H3 



Turn the 
QUIT Sw 
On 



Save EXIT 
Word and 
Switch Settings 



j[ End ) 



CALLMSG J3 



CALL 
MSG Mod 



& 



No 



MESSAGE 
Routine IKJEFF02 




When the Return Code is 
Non-zero Msg Module is 
Called Twice. The Second 
Time the User is Told 
there is a Missing 
Reply. 



Copy the Address 
of the Response 
into EXIT 
INTERFACE 
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Chart HB. IKJEFF09. 



EXIT INTERFACE 



4 Indicates 
that we Should 
Process Current 
Stmt and Return 
for Another 



Put Out ERROR 
Msg for 


No 


Unable to 
Diagnose Code 






1 






NEXTCAL 



C4 



CALL 
IKJEFF06 




Wish to Go Back in 
HISTORY Table 
and Pick Up the 
JCL Information for 
the Last Card 
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Chart IA. IKJEFF10. 



DUMMY EXIT 



MODULE 10 -- 
IKJEFF10 — 
Is a DUMMY 
Routine that may 
be Replaced by 
the Installation, 
if they so Desire. 
It Deals with the 
Following Types: 

JOB 

EXEC 

DD 

CMD . 

NULL 



CONTS 



f Enter j 


B2 


Place a Return 
Code of Zero 
in Register 
15 


C2 



( " ) 
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Chart JA. IKJEFF11. STAE EXIT 



04 Indicates that 
the Output Data 
Set is to be 
Closed and 
Scratched 



f Enter J 


B2 


Set Request 
Function to 
04 


C2 


CALL 
IKJEFF12 
WRITER 
MANAGER 


i 


D2 


Place a Return 
Code of in 
Register 15 


i 


E2 



This Routine, IKJEFF11, may be 
Entered Independently by the 
SUPERVISOR if an Abend Occurs 
or it may be Entered by IKJEFF04, 
the INITIALIZER. 



When this STAE EXIT 
Routine is entered from 
the SUPERVISOR, this 
Return Code will be Sent 
Back and the Abend will 
Continue as Control is 
Returned to TMP 



CZJ 
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Chart KA. IKJEFF12. 



WRITER MANAGER 



f Enter J 



The WRITER MANAGER Routine 
is Responsible for the Writing 
Out of all Output. 



Turn the in 
WRITER 

MANAGER Rtn 
Sw On 



The Necessary Addresses 
Included in the Dair 
List are CPPL, 
DAIRCODE, WORK DCB, 
JOBNAME, MSGPT 



Initialize 
INTERFACE 
Blk for DAIR 
and IKJEFF15 



FUNCTION is Used for the Routing 
of Control in this Module — Its 
Code is: 

1 = Get a Work Area ALLOCATE 

Output Data Set. 
Open the Data Set 
INITIALIZE Output Block. 

2 = Put Out the Output. 

Re-INITIALIZE Output Block. 

3 = Put Out Output. 

Close Data Set. 
DEALLOC/ENQ the Data Set. 

4 = Close and Scratch the Data Set. 



If this Branch is Taken, 
the User has not Given 
the Correct Code for this 
Routine, Hence it will 
End with No Messages and 
Control will Return to the 
CALLER 




Performed 
Through the 
Issuance of a 
GETMAIN 



DAIRCODE sets a Code by 
which the DAIR INTERFACE 
Rtn Determines the Interface 
Conditions to Send to DAIR. 
DAIRCODES are: 

1 ^ALLOCATE Output Blk 

2 = DEALLOCyENQ Output 

Blk 

3 = DEALLOCand Scratch 

Output Buffer 



IKJEFF15 Is the 

Interface 
to DAIR -- 
DYNAMIC 
ALLOCATION 
Routine 



Obtain 
Workarea for 
Writing 
Out 



Set 

DAIR CODE 

to 01 



CALL 
IKJEFF15 




DCB 213 -- Exit for 
Error in Open 
DCBB37 — to Cause Out 
of Space Entry to 
SYNAD 



Set Up 
DCB Exits 



Open the 
Data Set 



SetFAILCODE 

for DCB 

Did Not Open 



Set MSGID 
for Unable to 
Open Output 
Data Set 



( " > 




The 
BLK- 
— SIZE 
is 
800 
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Chart KB. IKJEFF12. WRITER MANAGER 




(FAILURE) 
( BADMSG ) 
CALLMSG 



-0 



CALL 
MSGMOD 



Fail Code is Another means of 

Routing Control 

00 — No Errors 

02 -- DCB did not Open 

04 — Synad Error 

05 — Synad Entered 

under CLOSE 



D2 




Put Out a 
Block 



Set DAIRCODE 
to 03 and Turn 
QUIT Sw On 





Set 

DAIRCODE 
to 02 



CLOSE 



CLOSE the 
Data Set 



DEALLOC 

\% the 
' DAIRCODE 02 ^ 




Issue 
SVC 100 



The DAIR Interface 15 is 
Called by way of SVC 100 - 
so that it may be able to 
Process in Key Zero 
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Chart KC. IKJEFF12. WRITER MANAGER 



BADQUIT 




Turn the 
QUIT Sw On 



B5 



Put Out JOB 

Terminated 

Msg 



Free the Work 
Area and Zero 
Work Area and 
Block Area Ptrs 



DCBB37 



This Exit is Entered 

in an End-of-Volume 

Situation 



Place a 
Return Code 
of 1 in 
Register 15 



Return is 
Done through 
Reg 14 



5YNAD: 


G2 


STANDARD 

ENTRY 

Code 




H2 


Set 

FAILCODE 
to '04' 




Set Length 
Variable so 
Out-of-space 
Message wi 1 1 
Not be Printed 




When the CLOSE Macro tries 
to Write Out an Output 
Buffer into an Already Full 
Data Set, Close will try to 
Account for the Error and it 
will Enter our Synad Routine under 
its own RB. Before Continuing, 
have to set Ptr to User's RB. 



J5 



Yes 



Set 

FAILCODE 
to '09' 



Issue SVC 3 
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Chart LA. IKJEFF13. PROMPTJOB 



( Enter J 



Increment 
the Inprompt 
JOB Rtn 
CTR 



PROMPTJOB Routine Adds a 
Character to the Userid when the 
Userid Equals the JOBNAME. 



Here Trying to 
Determine If there are 
Two Blanks after the 
Userid, or are there 
Two Blanks after the 
VERB JOB 



Decrement 
the 

INPROMPT- 
JOB CTR 




C4 



U End J 



The COMMENT Card 
that is being Passed to 
IKJEFF08 is Initialized 
as - 

"The Original Job Card 
Follows" 



PROMPT 



Save Original 
JOB Card. 
INIT COMMENT 
Card for 
1KJEFF08 



GENJOB is Called in 
Order to Generate a 
New Job Card Because 
there was No Room for 
an Added Character 



Move the 
VERB JOB 
Over 



INITIALIZE a 
Card as a 
NULL Card 



CALL 
IKJEFF08 



G2 



The NULL Card will Serve the 
Purpose of Cutting off a 
Previous JOB, if any, before 
another One is Processed 



CALL 
IKJEFF06 



CALLMSG ,, 



Turn on ' JOB 

COMMENT 

Sw' 



The CONTROL Rtn is 
Called in this Line of the 
Flow to Process the Card 
with the Appended 
Character 



CALLCON-, 



Here the CONTROL Routine 
is called to Process 
the Above 
NULL Card 



G3 \G3 



CALL 
IKJEFF02 



CALL 
IKJEFF06 



This CALL is being made to the 
MESSAGE PROCESS Routine. Messages being 
Sent Out from this Line of Flow are Normally, 
either ENTER JOB Character or INVALID Char 



®- 



Set MSGID to 
say there was 
a Missing 
JOB Char 




Set the QUIT 
Sw to 1 
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Chart LB- IKJEFF13- PROMPTJOB 



The Ct is Incremented every Time 
we Check the User's Response and 
when we Find that he has Given 
a Valid Character the Ct is Set 
to — and then Ct Acts Like a 
Switch 



Increment 
theCt 



When Prompted by the MSG 
Routine the User should have Given 
an Alphanumeric Character. Here 
we Search the Response for the 
First Non-blank Character and 
then Validate it 



A Valid Character 
is One of the 
Following: *, $, (§ 
0-9, A-Z 




AGAIN 



C3 



Free the 
Response 
Buffer 




This Message ID 
Indicates that we 
are Sending the User 
the Message that 
he Entered an 
Invalid Character 



Set the Ct 
to Zero 
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Chart MA. IKJEFF14. COMPRESS 



K, which was 
Initialized to 0, 
is the Counter of 
the Number of 
Bytes of the 
Input Card 



( Enter J 



Obtain a 
Ptr to the 
COMPRESS 
Working Area 



C2 



Calculate 
the Limit or 
End of the 
Output Buffer 



Zero the Text 
and Blank 
Counts 



Set Output 
Ptr to Next 
Available 
Byte 




The COMPRESS Rtn takes any 
Input Stream and Compresses 
it by Replacing the Number of 
Blanks with an Algebraic Count. 
COMPRESS Moves One 
Character at a Time. 



Increment K 
by 1 




This Blank Ct keeps Track 
of how many Blanks are 
between Words. 
This Section of Code also 
Handles a String of the 
Form A# B#C which it 
Treats the Single Blank 
as a Non-blank or Text 



"© 




Increment the 
Blank Count 



Non-Zero 



Store Blank and 
Text Count, Set 
Blank Ct to 0, 
Update Outxt Ptr 



QUIT 



Place a Return 
Code of 4 in 
Register 15 



Store Totals 
of Blank 
and Text Ct 



CALLER w 



F5 



Init Next 
Output Buffer 
Location to 
Zero 



Increment 
the Text 
Count 



H3 



Place a Return 
Code of Zero 
into Reg 15 



■O 



r^o 
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Chart NA, IKJEFF15. DAIR INTERFACE 



( Enter J 



This Table will be Used 
to Pass to DAIR Addresses 
of INTERFACE Tables and 
Working Areas 



INITIALIZE 
the DAIR 
Parameter 
Table 



This Code refers to the ENTRY FUNCTION 
Code. It was used before and now here 
for the Routing of Control. The Code 
Indicates the following: 

01 = ALLOCATE the Output 

02 = DEALLOCATE the Output 

03 = Scratch the Data Set 



This is the Count of 
Entries in the 
SUBMIT Queue. The 
Max No. Possible is 
Defined at SYSGEN 






This Routine Provides the 
INTERFACE to LOAD and CALL 
IKJDAIR, DYNAMIC 
ALLOCATION INTERFACE Rtn 
for Output Data Set. 



MSGID of 
•15C' 



C4 



Set MSGID 
to say that 
SUBMIT 
Queue Full 



INITIALIZE 
other 

Pertinent DD 
Keywords 



Turn the KEEP 
Sw On in Disp 
Field of DAIR 
INTERFACE Blk 



F2 



Indicate 
SCRATCH 
Code for 
DAIRCODE 



Take 

DDNAME and 
JOBNAME for 
Deallocation 



CALL 
IKJDAIR 




This Message ID 
Indicates that the 
Operator should be 
told the SUBMIT Queue 
is Full 









CALLMSG 


J5 








CALL 

IKJEFF02 

MESSAGE 

PROCESSOR 

Routine 








MSGID of 1 
'15C 






S> 


■ 






K3 


1 ( 

/Did\K4 
y^vne Last MsgN^^ 


K5 


Set MSGID 




Yes 


1 


Place a 
Return Code 


to '15 


D' 




"\ say SUBMIT /~* 
\Q Fuh/ 




of 4 in 
Reg If 


to 



( E " d ) 



4 Indicates an 
Error 
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Chart NB. IKJEFF15. DAIR INTERFACE 





1 NB 1 
\ B2 / 


Yes 




B3 


/ Is the Code ^v 

N. 02 y/ 




Increment 
the Count of 
Entries in 
SUBMIT Queue 








No 




1 






C2 








Copy the DD 
Name Given by 
DAIR into User's 
DCB 










| 


D2 












Zero 
Indicates 
No 
Errors 





Place a Return 
Code of into 
Reg 15 












E2 


> 






Return 
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Chart OA. IKJEFF17. PARSE EXIT 



A2 



( Enter ) 



B2 



If the MEMBER 
Sw in the PDE 
is On, Copy 
Length of Member 



These Three Process Blocks 
INITIALIZE the DAIR08 
Blocks. Other Fields in 
the DAIR08 Block are 
Cleared. DAIR08 Blocks 
Contain Data Equivalent to 
"DD Information " 



PDE is the PARSE 
Block for the Data 
Set Name now 
Being Processed 



If PASSWORD 
Sw is On in 
POE, Copy 
PASSWORD to 
DAIR08 




f Set PARSE 
RETURN CODE 
to 12 




Turn On SHARE, 
KEEP and 
CONDITIONAL 
KEEP Switches 



Set a Return 
Code of 8 
to PARSE 




8 Indicates 
that the 
User Should 
Reenter 



O 



Copy the 
Name and 
Its Length 
Into DAIR08 



Quotes Indicate that 
Only the Name Given 
Should be Used to 
Define the Data Set — 
No Qualifiers Added 



This Routine IKJEFF17 
Builds DAIR08 Blocks 
and the Pointers to 
those Blocks -- the 
DD Element Chain. 




■© 



CALLDEF 



DEFAULT is a Utility 
Rtn that Fully Qualifies 
a Data Set Name. 
This is a Double Call 
and it is Only after 
the Second Call that 
an ERROR Message is 
Put Out. The First Call 
is made with a Code of 
'00 ' Signifying Prefer 
'CNTL' -the 2nd 
Call is with Code '04' 
Signifying to Add 
any Qualifier 



H3 



CALL 

DEFAULT 

Rtn 



Set Up DD 
Element Ptr to 
Already Existing 
DAIR08 Blk 




Add Another 
DAIR08 Blk and 
DD Element as 
a Ptr to it 



J5 



■~CE_) 



© 
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Section 4. Directory 



This section contains a routine directory organized alphabtically by 
entry name or routine, A data area directory is also provided, arranged 
alphabetically. 



Routine Directory 



Entry Name, 
Routine Name 



Load 
Module 



Control 
Section 



Cross Reference 
MO FC 



IKJEFF01 


SUBMIT 


IKJEFF01 


2-1 


AA,AB 


IKJEFF02 


SUBMIT, 
IKJEFF02 


IKJEFF02 




BA-BC 


IKJEFF03 


SUBMIT 


data only 






IKJEFF04 


IKJEFF04 


IKJEFF04 


2-3 


CA 


IKJEFF05 


IKJEFF04 


IKJEFF05 


2-3 


DA,DB 


IKJEFF06 


IKJEFF04 


IKJEFF06 


2-4 


EA,EB 


IKJEFF07 


IKJEFF04 


IKJEFF07 


2-4 


FA-FC 


IKJEFF08 


IKJEFF04 


IKJEFF08 


2-4 


GA 


IKJEFF09 


IKJEFF04 


IKJEFF09 


2-4 


HA,HB 


IKJEFF10 


IKJEFF10 


IKJEFF10 


2-4 


IA 


IKJEFF11 


IKJEFF04 


IKJEFF11 




JA 


IKJEFF12 


IKJEFF04 


IKJEFF12 


2-5 


KA-KC 


IKJEFF13 


IKJEFF04 


IKJEFF13 


2-4 


LA,LB 


IKJEFF14 


IKJEFF04 


IKJEFF14 


2-4 


MA 
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ROUTINE DIRECTORY (Cont. ) 



Entry Name, 
Routine Name 



Load 
Module 



Control 
Section 



Cross Reference 
MO FC 



IKJEFF15 


IKJEFF04, 
IKJEFF15 


IKJEFF15 


2-5 


NA,NB 


IKJEFF16 


IKJEFF16 


data only 


2-2 




IKJEFF17 


IKJEFF16 


IKJEFF17 


2-2 


DA 


IKJEFF18 


IKJEFF18 


IKJEFF18 







Data Area Directory 



Data Area 



MO 



FC 



Control Table (CONTAB) 


2-3,2-4 


CA,EA,EB 


DSNPDE 


2-2 


CA 


History Table 


2-3,2-4 


CA,FA 


PDL 


2-2 


AA 


Parse Parameter List (PPL) 


2-2 


AA 


WORKAREA 


2-5 


KA 



64 SUBMIT 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Section 5. Data Areas 



This section describes the data areas within the Submit Command 
Processor. Data areas are in alphabetical order. 

CONTAB— Control Table 

Size: 68 bytes 

Constructed by: IKJEFF04 

Used by: IKJEFF05, 06 , 08 , 09, 11 and 13 all define this table, 
IKJEFF07, 10 and 12 use various fields only. 

Contents: The Control Table contains fullword pointers to data areas 

used by all SUBMIT routines. The first twelve bytes contain 
the words "SUBMIT CONTROL TABLE" to help to find this table 
in a dump. 

Only two routines reference the Control Table directly: 
Initializer and Control, Other routines are passed pointers 
to the pointers to the data areas they need. 



Disp Field Size 
Dec (Hex) (Bytes) 



Use/Contents 



(0) 


TABID 


12 


Used for identification, initialized 
to 'SUBMIT TABLE 1 , 


12 (C) 


CONTABPT 


4 


Pointer to Control Table, 


16 (10) 


STMTPT 


4 


Pointer to Current Statement, 


20 (14) 


WRMGRPT 


4 


Pointer to Writer/Manager Work Area, 


24 (18) 


HISTPT 


4 


Pointer to History Table. 


28 (IC) 


OUTBLKPT 


4 


Pointer to Output Block. 


32 (20) 


JOBNAMPT 


4 


Pointer to Current Jobname. 
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CONTAB — Control Table (Cont.) 



Disp 
Dec (Hex) 



Field 



Size 
(Bytes) 



Use/ Contents 



36 (24) 


MSGLISPT 


4 


Pointer to Message Routine List. 


40 (28) 


USERIDPT 


4 


Pointer to Userid. 


44 (2C) 


TMCTPT 


4 


Pointer to Command Processor 
Parameter List (CPPL) . 


48 (30) 


EXWORD 


4 


Exit Word. 


52 (34) 


EXITAD 


4 


Exit Address. 


56 (38) 


DDPTR 


4 


Pointer to DD Element Chain. 


60 (3C) 


COMECBPT 


4 


Pointer to Communication ECB. 


64 (40) 


INITSAVE 


4 


Pointer to Initializer Routine 
save area. 
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DSNPDE— Data Set Name Parameter Descriptor Element 

Created by: IKJPARSE. 

Used by: IKJEFF17. 

Use: Formatted data set name parameters. 



Disp Field 
Dec (Hex) 



Subfield 



Size 
(Bytes) 



Use/Contents 



(0) 


PDEDSNPT 




4 


Pointer to data set name 
(44 char) . 


4 (4) 


PDEDSNLN 




2 


Length of data set name. 


6 (6) 


PDEFLG1 


PDEDSNB 
PDEQUOTE 


1 

1 bit 
1 bit 


"1" if data set name present. 
n l w if data set name quoted. 


7 (7) 


* 




1 


Unnamed . 


8 (8) 


PDEMEMPT 




4 


Pointer to membername. 


12 (C) 


PDEMEMLN 




2 


Length of member name. 


14 (E) 


PDEFLG2 


PDEMEMB 


1 
1 bit 


"1" if member. 


15 (F) 


* 




1 


Unnamed. 


16 (10) 


PDEPASSP 




4 


Pointer to password. 


20 (14) 


PDEPASLN 




2 


Length of password. 


22 (16) 


PDEFLG3 


PDEPASSB 


1 

1 bit 


"1" of password. 
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History Table 

Constructed by: 



IKJEFF04 



Updated by: IKJEFF07 

Used by: IKJEFF06 

Contents: Three fields: one to record which module is executing, one 
to record the current JCL statement being processed, one for 
static history including the quit switch. 



Disp Field 
Dec Hex 



Subfield 



Size 
(Bytes) 



Use/Contents 



(0) 


SUBTAB 




12 


Identification, initial- 
ized to History Tab. 


12 (C) 

12 (C) 

13 (D) 

14 (E) 

15 (F) 


WHATMOD 

* 


INCONTRL 
INPROMPT 

INGEN 

INREAD 

INIDENT 

INEXIT 

INWRMGR 

INDAIRIN 

INMSG 

INCOMPIN 


4 

1 
1 

1 

1 

1 bit 
1 bit 
1 bit 
1 bit 
1 bit 
1 bit 
1 bit 


Indicates modules called 
that have not yet return- 
ed to caller. 

Control . 
Prompt. 

Generates . 

Unnamed . 

Reader. 

Identify. 

Exit interface. 

Writer manager. 

Dair interface. 

Message interface. 

Compress . 


16 (10) 


JCLSWITS 




12 


Contains prior, current 
and static history of 
JCL statements. 


16 (10) 


PRIORJCL 




4 


Prior History; history of 
previous statement. 
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HISTORY TABLE (Cont. ) 



Disp Field 
Dec (Hex) 



Subfield 



Size 
(Bytes) 



Use/Contents 







PVER8 


2 

Bit 

PDELIM 

1 PDATA 

2 PNULL 

3 PJOB 

4 PEXEC 

5 PDD 

6 PCOMMAND 

7 P COMMENT 
8-15 


Verb Type indicated by 
bit settings: 

Delimiter. 

Data. 

Null statement. 

Job statement. 

Exec statement . 

DD statement. 

Command . 

Comment statement. 

Reserved (0) . 


18 (12) 




PDTYPE 


1 

Bit 

PDDAST 

1 PDDATA 
2-7 


Data type indicated by 
bit settings: 

DD * 
DD DATA 
Reserved (0). 


19 (13) 




PMISC 


1 

Bit 

PCONEX 

1 POPCONEX 

2 PCONERR 

3 PNAME 

4 PVERBCOP 

5 PCOMCON 

6 PNOTHING 


Miscellaneous switches 
indicated by bit settings: 

Continuation expected. 

Op Code and continuation 

expected. 

Jobname present. 

Verb copied. 

Verb copied. 

Make next statement a 

comment . 

Unknown. 


20 (14) 


CURRJCL 




4 


Current History; listing 

of current JCL statement. 
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HISTORY TABLE (Cont. ) 



Disp Field 
Dec (Hex) 



Subfield 



Size 
(Bytes) 



Use/Contents 



20 (14) 




CVERB 


2 

Bit 

CDELIM 

1 CDATA 

2 CNULL 

3 CJOB 

4 CEXEC 

5 CDD 

6 CCOMMAND 

7 COMMENT 
8-15 


Verb type indicated by 
bit settings: 

Delimiter. 

Data. 

Null statement. 

Job statement. 

Exec statement, 

DD statement. 

Command . 

Comment statement. 

Reserved. 


22 (16) 




CDTYPE 


1 

Bit 

CDDAST 

1 CDDATA 
2-7 


Data type indicated by 
bit settings: 

DD * 
DD DATA 
Reserved (0). 


23 (17) 




CMISC 


1 

Bit 

CCONEX 

1 COPCONEX 

2 CCONERR 

3 CNAME 

4 CVERBCOP 

5 C COMMON 

6 C NOTHING 


Miscellaneous switches 
indicated by bit settings: 

Continuation expected. 
Op code and continu- 
ation expected. 
Continuation expected 
error . 

Jobname present. 
Verb copied. 
Make next statement 
a comment. 
Unknown . 


28 (1C) 


STATIC 




4 


Contains Static History. 
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HISTORY TABLE (Cont. ) 



Disp Field 
Dec (Hex) 



Subfield 



Size 
(Bytes) 



Use/Contents 



28 (1C) 




GENL 


1 

Bit 

QUIT 

1 FLUSH 

2 FIRST 

3 NONOTIFY 

4-7 


General Switches; bit 
settings: 

Quit; terminate SUBMIT 
command processor • 
Flush the input stack. 
First record for a job, 
NONOTIFY parameter 
included in all 
generated JOB state- 
ments • 
Reserved (0) . 


29 (ID) 




TAKEXITS 


1 

Bit 

JOBX 

1 EXECX 

2 DDX 

3 CMDX 

4 NULLX 


Take exits to the 
installation. Exit 
routine for the following 
statements; bit settings: 

Job statements. 
Exec statements. 
DD statements. 
Commands . 
Null statements. 


30 (IE) 




OPOFF 


1 


Operation offset. 


31 (IF) 




CODEFLG 


1 


Functions Code byte. 
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PDL — Parameter Descriptor List 

Created by: IKJPARS 

Used by: IKJEFF01 and IKJEFF17 

Use: Formatted command parameters. 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 



(0) 


overhead 


8 


Used by IKJPARS. 


8 (8) 


DSNPDE 


28 


Fully defined under DSNPDE. 


36 (24) 


NONOPDE 


2 


1 if notify 

2 if no-notify 



PPL— PARSE Parameter List 

Created by: IKJEFF01 

Used by: IKJPARS 

Use: Interface to PARSE 



Disp Field 
Dec (Hex) 



Size Use/Contents 
(Bytes) 






(0) 


PPLUPT 


4 


Pointer 


to 


UPT. 


4 


(4) 


PPLECT 


4 


Pointer 


to 


ECT. 


8 


(8) 


PPLECB 


4 


Pointer 


to 


SUBMIT 1 s ECB. 


12 


(C) 


PPLPCL 


4 


Pointer 


to 


PCL. 


16 


(10) 


PPLANS 


4 


Pointer 


to 


address of PDL. 


20 


(14) 


PPLCBUF 


4 


Pointer 


to 


Command Buffer. 


24 


(18) 


PPLUWA 


4 


Pointer 


to 


user work area. 
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WORKAREA— Writer Manager Work Area 

Created by: IKJEFF12 

Used by: IKJEFF14 

Use: Contains block and output area required by Writer Manager (1040 
bytes) • 



Disp 
Dec (Hex) 



Field 



Subfield 



Size 
(Bytes) 



Use/Contents 



(0) 


WORKDCB 






96 








* 




37 


Unnamed • 


37 (25) 




EXLST 




3 


Exit list pointer. 


40 (28) 




♦ 




8 


Unnamed. 


48 (30) 




OFLAGS 




1 








* 


1 


bit 


Unnamed. 






* 


1 


bit 


Unnamed . 






* 


1 


bit 


Unnamed. 






OPENBIT 


1 


bit 








* 


1 


bit 


Unnamed. 






* 


1 


bit 


Unnamed . 






* 


1 


bit 


Unnamed. 






* 


1 


bit 


Unnamed . 


96 (60) 


SAVEREG 






64 


Special save area used to 
recover registers in the SYNAD 
routine. For SYNAD , Reg 1 
points to the DCB, so this 
save area is defined just 
after the DCB. Completion code 
is given in the high order 
byte of Reg 1. 


96 (60) 




BADR0 




4 




100 (64) 




BADR1 




4 




100 (64) 




COMPLCOD 




1 




160 (A0) 


BLOCK 






808 


Area for output block with 
pointers for use by compress 
routine; pointer to next 
available space remaining 
in bytes. 
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Section 6. Diagnostic Aids 



This section contains a register usage summary and information on 
messages • A table lists the messages issued by each module by message 
ID. The messages and their meanings are then listed in message ID 
order. 

Register Summary 

All routines in this processor use the following four registers in 
the conventional ways: 

Rl — parameter list points 

R13 — register save area pointer 

Rl** — return address 

R15 — return code 
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Messages (By Module) 



IKJEFF01 


IKJ56251+ 
IKJ56264 


IKJEFF05 


IKJ56265 


IKJEFF09 


IKJ56266 
IKJ56280+ 
IKJ56282 
IKJ56283 


IKJEFF12 


IKJ56250 
IKJ56256 
IKJ56270 


IKJEFF13 


IKJ56253+ 

IKJ56255 

IKJ56257 


IKJEFF15 


IKJ520 (WTO) 

IKJ56259 

IKJ56270 


IKJEFF17 


IKJ56262 
IKJ56252 
IKJ56268 
IKJ56269 



IKJEFF18 


IKJ56220I+ 




IKJ56221I+ 




IKJ56222I+ 




IKJ56223I+ 




IKJ56224I+ 




IKJ56225I+ 




IKJ56226I+ 




IKJ56227I+ 




IKJ56228I+ 




IKJ56229I+ 




IKJ56230I+ 




IKJ56231I+ 




IKJ56232I+ 




IKJ56233I+ 




IKJ56235I 




IKJ56236I 




IKJ56237I 




IKJ56238I 




IKJ56241I 




IKJ56243I 




IKJ56244I 




IKJ56245I 




IKJ56246I 




IKJ56247I 




IKJ562U8I 




IKJ56249I 
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Messages (By Message ID) 



Message Number Messages 



IKJ56220I (1) NOT ALLOCATED, TOO MANY DATA SETS+ 

USE FREE COMMAND TO FREE UNUSED DATA SETS 



IKJ56221I (1) NOT ALLOCATED, REQUIRED VOLUME NOT MOUNTED* 

VOLUME OR CVOL NOT ON SYSTEM AND CANNOT BE ACCESSED 



IKJ56222I (1) NOT ALLOCATED, REQUIRED VOLUME NOT MOUNTED* 
VOLUME NOT ON SYSTEM AND CANNOT BE ACCESSED 



IKJ56223I COMMAND SYSTEM ERROR+ 

(routine) ERROR CODE XXX 



IKJ56224I 
IKJ56225I 



INVALID SYSOUT CLASS 



DATA SET -DSNAME- ALREADY IN USE, TRY LATER* 
DATA SET IS ALLOCATED TO ANOTHER JOB OR USER 



IKJ56226I 
IKJ56227I 



INVALID DATA SET -DSNAME- EXCEEDS 44 CHARACTERS 



DATA SET •dsname 1 ALLOCATED FOR SHARED USE ONLY* 
DATA SET IS ALLOCATED TO ANOTHER JOB OR USER 



IKJ56228I 
IKJ56229I 



DATA SET -DSNAME- NOT IN CATALOG 



DATA SET -DSNAME- WILL CREATE INVALID CATALOG 

STRUCTURE* 

A QUALIFIER CANNOT BE BOTH AN INDEX AND THE LAST 

QUALIFIER OF A DATA SET NAME 



IKJ56230I DATA SET , dsnaroe , NOT UNALLOCATED, MEMBER OF 
CONCATENATION 



IKJ56231I 



(1) NOT ALLOCATED, SYSTEM OR INSTALLATION ERROR* 
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IKJ56232I VOLUME ALLOCATED BUT DATA SET f dsnarne f IS NOT ONE 
VOLUME+ 

CATALOG OR VOLUME INFORMATION INCORRECT , USE DELETE 
COMMAND 



IKJ56233I HELP DATA SET NOT ALLOCATED, SYSHELP IS DUMMY+ 
MODIFY YOUR LOGON PROCEDURE 



IKJ56235I MEMBER f merobername * SPECIFIED BUT 'dsnarae 1 NOT A 
PARTITIONED DATA SET 



IKJ56236I 



FILE (• joblib* \ INVALID 
I'steplib 1 / 



IKJ56237I DATA SET f dsname l NOT ON A DIRECT ACCESS DEVICE, NOT 
SUPPORTED 



IKJ56238I 



(1) NOT FREED+ 
(2) 



NOTES ON VARIABLES 



DAIR CALL 



(1) 


HELP DATA SET 


24 




UTILITY DATA SET 


30 OR 18, SYSCLS GIVEN 




DATA SET -DSNAME- 


DSN PTR NOT ZERO 




FILE -DDNAME- 


IF DDNAME NOT BLANK 




TERMINAL 


1C 


(2) 


SUBALLOCATED DATA SET 
GENERATION DATA GROUP 
PASSED DATA SET 




(3) 


DYNAMIC ALLOCATION 


CODE NOT IN TABLE 




CATALOG 


CODE NOT IN TABLE 




DAIR 


CODE NOT IN TABLE 


(4) 


CATALOG ERROR CODE 14 
CATALOG I/O ERROR 


DYNAMIC ALLOCATION ERROR CODE XXXX 



IKJ56241I (1) NOT ALLOCATED* 

INVALID UNIT IN USER ATTRIBUTE DATA SET OR NO UNIT 
AVAILABLE 
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IKJ56243I DATA SET •dsname 1 RESIDES ON MULTIPLE VOLUMES, NOT 
SUPPORTED 



IKJ56244I DATA SET 'dsname 1 NOT ALLOCATED, DIRECTLY LARGER THAN 
PRIMARY QUANTITY 

IKJ56245I DATA SET 'dsname' NOT ALLOCATED, NOT ENOUGH SPACE ON 
VOLUME S+ 
USE DELETE COMMAND TO FREE UNUSED DATA SETS 



IKJ56246I 
IKJ56247I 
IKJ56248I 



FILE 'ddname' NOT ALLOCATED, IN USE 



FILE 'ddname 1 NOT FREED, IS NOT ALLOCATED 



DATA SET "dsname' NOT ALLOCATED, REQUESTED AS NEW 
BUT CURRENTLY ALLOCATED 



IKJ56249I DATA SET 'dsname' NOT ALLOCATED, CURRENTLY ALLOCATED 
WITH DISPOSITION OF DELETE 



IKJ56250I JOB 'jobname' SUBMITTED 

Explanation : Acknowledgement message. A job has 
been entered into the background. 

User Response : None . 

IKJ56251A COMMAND NOT AUTHORIZED 

Explanation ; Use of SUBMIT command as specified by 
account comiuand is not authorized for this user id. 

System Action ; SUBMIT processing is terminated. 
IKJ56251I YOUR INSTALLATION MUST AUTHORIZE USE OF THIS COMMAND 

IKJ56253A ENTER JOBNAME CHARACTER 

Explanation ; A prompting message issued to complete 
a jobname which consists of the userid only. 
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System Action ; The SUBMIT processor waits for the 
user's response. 

User Response : Enter an alphanumeric character. 

If more than one character is entered. Only the first 

one is used. 



IKJ56253I JOBNAME IS CREATED FROM USERID PLUS ONE ALPHANUMERIC 
CHARACTER 

Explanation : This message appears if the user responds 
to message IKJ56253A with • ?•. 



IKJ56255A 



INVALID - CHARACTER 'character' 



Explanation : The reply givdh to message IKJ56253A 
was not a valid alphanumeric character. 



IKJ56255I 



REENTER- 



Explanation : This message prompts the user for another 
character. 

System Action : The submit processor waits for user 
response. 

User Response : Enter one alphanumeric character. 



IKJ56255I 



CHARACTER MUST BE ALPHANUMERIC 



Explanation : This message appears if the user responds 
to message IKJ56255A with ■ ? - . 



IKJ56257I 



MISSING JOBNAME CHARACTER 



Explanation : This message appears if the user has 
requested • NOPROMPT' and therefore message IKJ56253A 
cannot be processed. 

System Action : SUBMIT processing is terminated. 
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IKJ56259I BACKGROUND READER QUEUE FULL f TRY LATER 

Explanation ; The background reader queue (in the 
system jobqueue) does not contain sufficient space 
for a submitted job. 

System Action : Submit processing is terminated. 
The system operator is notified. 

User Response : The user must wait for a period of 
time and then re- submit the job. 

IKJ56264I COMMAND SYSTEM ERROR+ 

Explanation : One of the service routines abended. 
User Response : Check second-level error code. 

IKJ56264A PARSE ERROR CODE XXX 

Explanation : The Parse scan check found an error. 

User Response : Look over the submit syntax and 
resubmit. 

IKJ56264I COMMAND SYSTEM ERROR - DEFAULT ERROR CODE XXX 

Explanation : An error was encountered in IKJDFLT. 
User Response : Resubmit another data set name. 

IKJ56265I+ INPUT DATASET 'data set name' NOT USABLE 

Explanation : An error was encountered during the 
processing of an input data set. 

System Action : SUBMIT processing is terminated. 

IKJ56265I INPUT OPEN ERROR 'error code' 

Explanation : Second level explanation for message 
IKJ56465I. 



SUBMIT 81 



IKJ56265I SUBMIT TERMINATED ON JOB 

Explanation : An error condition has been encountered. 

System Action : Submit processing is terminated. 

User Response : The error condition may be indicated 
by a previous message. In some cases the user may 
enter •?• to obtain additional information. 

IKJ56266I UNABLE TO DIAGNOSE RETURN CODE XXXX 

Explanation : Installation Exit sent to Exit Interface 
an unrecognizable return code. 

System Action : Submit continue processing. 

IKJ56267I SYNAD ERROR "SYNAD INFO' 

Explanation : Second level explanation for message 
IKJ56265I. 

IKJ56268I INVALID DATA SET dsname, EXCEEDS H4 CHARACTERS 

Explanation : Error message from Default Routine. 

User Response : Enter data set name which is not 
greater than 44 characters. 

IKJ56269I DATA SET dsname NOT IN CATALOG 

Explanation : User entered a data set name not in 
the catalog. 

User Response : Enter a valid data set name. 

IKJ56270I OUTPUT DATASET FOR JOB 'jobname* NOT USABLE 

Explanation : An output error has been encountered. 
System Action : SUBMIT processing is terminated. 
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IKJ56270I 



OUTPUT OPEN ERROR 'error code' 



Explanation ; Second level explanation for message 
IKJ56270I. 



IKJ56270I 



NOT ENOUGH DIRECT ACCESS SPACE 



Explanation ; Second level explanation for message 
IKJ56270I. Not enough space was available to copy 
the user's input data set(s). 

System Action ; SUBMIT processing is terminated. 

User Response ; Wait a period of time and then re- 
submit the job. Reduce the amount of data in the 
input stream by placing it in another data set and 
using a DD statement to point to it. 



IKJ56272I SYNAD ERROR ' synad info' 

Explanation ; Second level explanation for message 
IKJ56270I. 



IKJ56280A 



'installation exit text' 



Explanation ; This message is from the installation 
exit. A response is called for. 

System Action ; The submit processor waits for the 
response requested by the message. 

User Response ; Give response. 



IKJ56281I 



ENTER REPLY FOR EXIT- 



Explanation ; This message appears if the user responds 
to message IKJ56280A with ' ?'. 



IKJ56282I 



MISSING REPLY FOR 'installation exit' FROM EXIT 



Explanation ; This message appears if the user has 
requested 'NOPROMPT' and therefore message IKJ56280A 
cannot be processed. 

System Action ; Submit processing is terminated. 
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IKJ56283I 'INSTALLATION EXIT TEXT' 

Explanation ; This message is from the installation 
exit. 

System Action ; Submit continues processing. No 
response is called for. 



IEF404I 



• jobname • ENDED 

Explanation ; Notify message issued when a job has 
finished executing in the background. 



IEF453I 



•JOBNAME 1 JOB FAILED 

Explanation ; Notify message issued when a job has 
finished executing in the background. 



IKJ520I 



BACKGROUND READER QUEUE FULL 

Explanation ; Notification to system operator that 
the system jobqueue does not contain sufficient space 
for a submitted job. 

System Action ; Submit processing is terminated in 
the foreground. There is no background action. 

Operator Response ; The operator may wish to take 
action to free jobqueue records for use in the submit 
queue. He may do any of the following; 

1, Increase the maximum number of jobs the system 
may contain at one time way of the 'MODIFY TSO f 
command, 

2, Start a background reader task, 

3, Stop background input readers, 

4, Start background initiators and writers, 

5, Increase the precentage of CPU time available 
to background tasks, 

6, Decrease the number and sizes of foreground 
regions, to allow for more tasks in the 
background. 
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Index 



Indexes to program logic manauals are 
consolidated in the publication IBM 
System/ 3 60 Operating System; Program Logic 
Manaul Master Index , Order No. GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 



ABB37, in WORKAREA 73 

ABEND, scratch data sets in case of 97 

AD213, in WORKAREA 73 

ADDR213, in WORKAREA 73 

ADDRB37, in WORKAREA 73 

allocate input, how done 91 

allocate output, how done 97 



background reader 11 

BADRO, in WORKAREA 73 

BADR1, in WORKAREA 73 

block, in WORKAREA 73 

blocking factors, of input DS 9 

BRDR, and FIB facility 8 

BRDRQ 

FIB and 8 

MVT and 11 

CARD , as input area 93 
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CNAME, in History 68 
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command, SUBMIT 

format 7 

functional summary 8 9 

syntax 91 

validity 91 
COMMENT, in history 68 
common DAIR failure message routine 

(IKJEFF18) 33 
COMPLCOD, in WORKAREA 73 
compress 

routine 29 

operation 95 



CONTAB 

built 93 

fields of 65 

used 95 
CONTABPT, in control 65 
control routine (IKJEFF06) 21 
control table 

built 93 

fields 65 

used 95 
COPCONEX, in history 68 
CSCB chain, and FIB facility 8 
current history, use of 93 
current statement 

input 93 

processing 95 
CURRJCL 

in history 68 

in processing 95 

use 93 
CVERB, in history 68 
CVERBCCP, in history 68 

DAIR 

input processing 91 

output processing 97 
DAIR failure diagnose 

operation 91 
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DAIR output interface routine (IKJEFF15) 30 
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DAPB30 and output DS 97 
data area directory 64 
data set 

name parameters 67 

naming 7 

restrictions 9 
DCBEXITS, in WORKAREA 73 
DD element chain 91 
DDCHAIN 

created 91 

used 93 
DDNAME 93 

DDPTR, in Control 65 
DELETE, function of DAIR 97 
diagnose DAIR, routine 33 
diagnostic aids 75 
directory 63 
DSNPDE 

description 67 

use 91 



enqueue submit data set 
EXECX, in history 68 
exit interface 

flowchart 50 

routine 24 

use 95 
EXLST, in WORKAREA 
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FIB facility 7,8 
flowcharts 34 
FLUSH 

in history 68 

use 95 
fore ground -initiated background 

facility 7 

SVC 16 
foreground messages module (IK JEFF 03) 
functional summary 11,89 
function byte, in SVC 100 16 



generate job card routine (IKJEFF08) 
generated job statements 95 
GENL, in history 68 



hierarchy chart 14 
history table 14 

created 93 

description 67 

used 95,97 
HISTPT, in control table 65 



identify routine (IKJEFF07) 

description 22 

used 95 
IKJDAIR 

for input 91 

for output 97 
IKJDFLT, used 91 

IKJEFF00, (SVC100) description 16 
IKJEFF01 

description 17 

used 91 
IKJEFF02 

description 18 

usage 95 
IKJEFF03 

description 18 

used 95 
IKJEFF04 

description 19 

used 93 
IKJEFF05 

description02 20 
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IKJEFF06 

DESCRIPTION 21 

USED 95 
IKJEFF07 
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inserted statements 95 
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LISTBC command, use of 1 
load modules 13 
LOC, in WORKAREA 73 
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message processor routine (IKJEFF02) 18 
message module (IKJEFF03) 18 
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messages by module 76 
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module descriptions 13 
MSGLISPT, in control 65 
MVT initiator/terminator 
MVT output queue 8 
MVT writer 8 



NEXT, in WORKAREA 73 
NONOPDE, in PDL 72 
NONOTIFY 

in history 68 

parameter 7 
normal termination 97 
NOTIFY parameter 7 
null statement 93,95 
NULLX, in history 68 



OFLAGS, in WORKAREA 73 
open, output 97 
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OPPCONEX, in history 68 
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used 95 
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PNAME, in history 68 
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PNULL, in history 68 
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PP1ANS, in PPL 72 

PPLCBUF, in PPL 72 

PPLECBF, in PPL 72 

PPLECTF, in PPL 72 

PPLPCLF, in PPL 72 

PPLUPT, IN PPL 72 

PPLUWA, in PPL 72 

Prior histcry 93 

PRIORJCL 
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used 95 
process statements 95 
program organization 13 
prompt 95 
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prompting by parse 91 
PSCB 91 
PSCBJCL 91 
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parameter descriptor list 72 
parse allocation routine 

description 17 

used 91 
parse entry interface routine (IKJEFF10 
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parse exit 91 
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QUIT 

in histcry 68 

used 93 



reading routine (IKJEFF05) 

description 20 

in use 93 
recursive calls 93,95 
register summary 75 
routine descriptions 13 
routine directory 63 



SAVEREG, in WORKAREA 73 

scratch a data set 97 

SIZE, in WORKAREA 73 

STAE exit routine (IKJEFF11) 26 

static history 67,93 

STJyiPT 

in control 65 

used 93 
submit control table 65 
submit data set 95,97 
SUBTAB, in history 67 
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description 16 

used 97 
SYS1.JCBQE 97 



TABID, in control 65 

TAKEXITS, in history 68 

termination 97 

TMCTPT (CPPL parameter) in control 



65 



SUBMIT 87 



user exit 93,95 
USERIDPT, in control 65 

WHATMOD 

in history 67 

used 93,95 
WORKAREA 73 
WORKDCB, in WORKAREA 73 



WORKEND, in WORKAREA 73 

write 97 
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writer manager 95,97 

writer manager routine (IKJEFF12) 

writer manager work area 73 

WRMGRPT, in control 65 
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Hard Inputs 



SUBMIT dslist 



[ "NOTIFY H 

[nonotifyJ 



Driving Inputs 



Program 





* 




/ 

i 


1 


DAIR08 


1 
1 


08 


I 






08 









Current Statement 



Check Command 

& 
Set Up for Input 



Diagram 2-2 




■80 Characters _ 



Build Controlling Tables 
& 
Read Input 



Diagram 2-3 



iz 



Process Input Statements 

& 
Send Each Job to Separate 
Output Data Set 



Diagram 2-4 



State Change Outputs < 



Hard Outputs 



Diagram 2-1. Functional Summary 



The Submit Command Processor: 

• Examines JCL statements read from the input data sets. 

• Inserts or changes JOB statements when missing or unacceptable JOB 
statements are discovered. 

• At the user's discretion, passes any JCL statement to a user written exit 
routine for processing. 

• Builds and enqueues an output data set for each JOB. 

The processor comprises four functional stages. 

1. The syntax of the command parameters is checked, input control blocks 
are built, and input data sets are allocated. 

2. Tables of addresses and processing information, to be passed between 
routines are built. Input statements are delivered for processing. 

3. Each input statement is examined and processed as required. The 
limits of jobs defined by the resulting JCL statements are determined. 

4. An output data set is allocated, written, and enqueued for each job. 



© 



Allocate and Write 
Output Data Sets 

& 
Enqueue Each on 
SUBMIT Queue 



Diagram 2-5 
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PARSE ALLOCATE (IKJEFFOl) 
controls this function 



Check Command and Set Up Input 




ATTACH IKJEFFOl 



Length 



Offset 



SUBMIT 
dslist 

[NOTIFY 1 

[nonotifyJ 



UPT 



PSCB 



USERID 



PSCBJCL 




USER 



illlilil 



ECT 



"1 Check validity and syntax 
and build PDL. 



2 Build DAIR08 blocks and 
DD element chain. 



3 Allocate input data sets. 



4 Go to initialize. 



IKJPARS 



IKJEFF17 



PPL 
















| PCL 












^ CB 











PARSE 



PDL 





2-3 



DSNPDE 




NONO PDE 



f DSNPDE 
| WORK AREA 



IKJEFF16 

PCL 

♦ IKJEFF17 



DAIR08 



DDNAME 



DSNPDE 



> 



DSNPDE 




Z\ 



DDNAME 



08 



DDNAME 



1KJDAIR 



DAIR28 











No. of PTR's 










f DAIR08 


r — i 


f DAIR08 



Rl 



f DAIR28 



DAIR 



r 



PARSE 
EXIT 




\7 

DDCHAIN 




Description 



Routine 



Label 



FC 



1 The user ID from the PSCB is placed in USER for later use. 

The PSCBJCL bit is checked to see if the user is authorized to use SUBMIT ' I ' = yes. 
If no the job is terminated with a message to the user. 

Parse is called to check the command parameters and build the PDL. Parse prompts 
the user for a data set name if none is in the command buffer. It then builds the PDL 
containing one DSNPDE for each data set name furnished. 

2 As each DSNPDE is built, parse calls Parse Exit to build a DAIR08 block for each unique 
data set name and a chained DD element for each DSNPDE. ( If a data set name appears 
twice in the dslist it will have only one DAIR08 built for it. However , a pointer to the 
DAIR08 will occur at 'two places in the DD Element Chain. This allows the same data 
set to be read in at any number of places in the input stream.) 

If Parse Exit is passed a DSNPDE for an unquoted data set name, IKJDFLT is called 
to check the name for conformance to TSO standards. The user is prompted to fully 
qualify or quote the data set name. If the user does not respond, a name of the form 
USERID. User assigned. CTRL is assigned. 


IKJEFFOl 

IKJEFF17 
IKJDFLT 


IKJEFFOl 


AA 
OA 



Descr 


ption 


Routine 


Label 


FC 


3 


A DAIR28 block containing the address of each of the DAIR08 blocks is built and a 
pointer to it is placed in DAPL, the DAIR parameter list. On one call DAIR 
allocates all of the input data sets. The DD name for each is delivered to the 
DAIR08. 

If the return code from DAIR fi 0, then IKJEFF18 is called to analyze the failure 
and send the appropriate message to the user before processing is terminated. 


IKJEFFOl 




AA 


4 


IKJEFF04 is called with the addresses of the four areas in heavy outline (USER, 
FUNCTION, DDCHAIN, and the DAIR08 blocks) as parameters. 


IKJEFF04 




CA 



Diagram 2-2. Check Command and Set-Up for Input 
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IKJEFF04 builds the control and history tables, 
and then calls IKJEFF05 which controls reading. 



IKJEFF04 



INITIALIZE and READ 




Rl 



f MSGTAB 



f USERID 



\ DDLISTP 



f NONOCODE 




The table ID 
can be read in 
the right 
margin of a 
formatted 
dump 




SUBMIT TABLE 










STMTPT 












HISTPT 












MSGLISTP 












USERIDPT 












EXITAD 












DDPT 











READER (IK JEFF05) | 



I Control and History tables are built 
and initialized before entering 
here. 



2 Open an input data set. 



w Get a record and go to 
process. 



4 At EOF - 

a.) if more data sets, go back to 2. 

b.) if last processed, generate delimiter 
statements and go to process. 
\ 




«- . 



CURRDD 



^CURRENT DDCHAIN ELEMENT 



READ DCB 











DDNAME 











INPUT DATA SET 



STMTPT 



CARD 



\ 



CURRENT STATEMENT 




2-4 




These switches 
specify the types of 
JCL statements for 
which the user EXIT 
will be entered 



/* WRAP1 
// WRAP2 
// WRAP3 



If on at RETURN 
the STAE EXIT is 
entered to free 
unfinished output 
data sets 



Description 



Routine 



Label FC 



1 The control table contains pointers to fields and tables used by different processing 

routines. Only this routine and the CONTROL routine (IKJEFF06) reference the table 
directly. Other routines receive pointers to only those elements required by their 
function. For instance, the address of STMTPT in CONTAB is passed to READER, after 
reading the address of CARD is returned to CONTAB for use by CONTROL. 

History contains these sections : 

a) WHATMOD — Each routine called from here on sets a switch (or increments 

a counter) in WHATMOD when it is called, and turns it off when it RETURN'S 
to its caller. This is done to keep a record of CALL's made, since processing 
in many instances means recursive use of programs. For example, CONTROL 
which is called by READER to process a statement may be called again, by 
a routine that CONTROL itself has called, before returning to READER. 

b) PRIOR and CURRENT history — used primarily by IDENTIFY to record facts 
about the statement being examined. For example, verb type of 
continuation expected. Any routine changing a statement must set PRIOR to 
CURRENT before calling CONTROL to process the changed statement. 

c) STATIC history — records history that remains constant across changes to the 
current statement and recursive calling . For example, the NONO switch, 
if 0, means that NOTIFY was specified and that all generated job statements 
must specify NOTIFY. 


1KJEFF04 


IKJEFF04 


CA 



Descr 


ption 


Routine 


Label 


FC 


2 


CURRDD is set with the address of the first DAIR08 and the DDNAME is moved from 
DAIR08 to the DCB. The data set is opened. 


IKJEFF05 


ALLAGAIN 


DA 


3 


The record is read to CARD. The address of CARD is put in STMPT in CONTAB, and 
CONTROL is called. 




CALLCON 


DA 


4 


At EOF, the input data set is closed and CURRDD is set from the pointer field of the 
current DDCHAIN element. If CURRDD ^ 0, go back and process the next data set. 
If CURRDD = deliver the three wrap up statements to CONTROL. Before delivering 




INPUTEOF 


DB 




the second null statement turn off all of the EXIT switches in HISTORY. This insures 




WRAPUP 


DA 




that the job being processed will be ended and the data set enqueued even if the user 










EXIT is deleting NULL statements. 




OUT 


DA 



Diagram 2-3. Initialize and Read 
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Description 


Routine 


Label 


FC 


1 The current statement is examined by IDENTIFY which: ( 1 . 1 ) Fills in WORK (same 


IKJEFF07 


IKJEFF07 


FA 


format as PRIORJCLand CURRJCL), (1.2) If the statement is a job card, copies the 








jobname to NEXTNAME, (1.3) Moves CURRJCL to PRIORJCL, and (1.4) Moves WORK 




UPDATE 


FA 


to CURRJCL, and then returns to CONTROL. 








2 If FLUSH in STATiC is on, a null statement has ended a job, all statements until the next 


IKJEFF06 


IKJEFF06 


EB 


job card are ignored by simply returning to the caller. 








3 If FIRST in STATIC is off, and a data card is found, it is part of an already identified 


IKJEFF06 




EB 


job, and is compressed and sent to the output block. 








4 If the verb is JOB and the statement is not a continuation, then this is the first card of 


IKJEFF13 




LA 


a new job. PROMPT is called to check the job name. If the jobname (in NEXTNAME) 








^ USERID (3.1), then the jobname is acceptable and an immediate return to CONTROL 




OUT 


LA 


is made. If jobname = user ID, the user will be prompted to add an additional 








character to the jobname. Before prompting, a null card is generated and CONTROL is 




PROMPT 


LA 


called to process it (3.2). The null ends the last job (if any) and causes the 








" job-submitted " message to be sent for the last job before the user is prompted on the 








next job. The message routine (IKJEFF02) is called, the character from the user's 




CALLMSG 


LA 


reply is added to the jobname in the current statement and CONTROL is called to process 




CALLCON 


LA 


the changed statement. Upon return from CONTROL, PROMPT returns to CONTROL for 








the original call. If the original statement had no room for an added character, 




OUT 


LA 


GENERATE (3.3) is called to furnish a default job statement. The original will be made 




LOOP 


LA 


a comment by IDENTIFY because PROMPT sets CCOMCON in CURRJCL. PROMPT adds 








the "originals follow " card after the generated job cards. 








5 If INEXIT in WHATMOD is on, we are in CONTROL on a recursive call from EXIT 


IKJEFF06 




EA 


INTERFACE, and we will not recall EXIT. If INEXIT is off and the TAKEXIT switch 








(in STATIC) for the current verb is on, EXIT INTER is called. The user written exit is 


IKJEFF09 


CALLEX 


HA 


entered and can make any desired changes to the job stream (5.1 ). The message routine 








and CONTROL are called by EXIT INTER to send messages and process changes made 




CALLMSG 


HA 


by EXIT. 




FIRSTCAL 




6 A job is ended by a null card or the job card for the following job. WRITER MANAGER 


IKJEFF06 


AFTEX 


EA 


is called with a function code of X '03 ' to enqueue the last job. 








7 a. If the card is JOB, CURRJCL is checked to make sure that the card is not a 




AFTENQ 


EA 


continuation, and then (7. 1 ), the jobname is accepted and WRITER MANAGER is 




CALLWRMG 


EB 


called with a function code of X '01 ' to start a new data set. Upon return, FIRST & 








FLUSH in STATIC are turned off if on. 








b. If the card is NULL, the FLUSH switch in STATIC is set. All cards until the next 




AFTSTART 


EB 


JOB card will be ignored. 








O Three or four (if notify is specified) cards are generated and then the original non-job 


IKJEFF08 


COUNT 


GA 


card is reprocessed. CONTROL is called (9.1 ) recursively for the inserts and the 








original. PROMPT will be called (9.2) when the first inserted card is processed to get 








the additional character from the user. When GENERATE finally RETURNS to CONTROL 








it goes back to READER for another statement. 








9 COMPRESS puts the output statement, in compressed form, into an output block 


IKJEFF14 




MA 


furnished by WRITER MANAGER when it was called to get a SUBMIT data set. 








10 A return code of 4 from COMPRESS means that the output block did not contain enough 








room for the statement. WRITER MANAGER is called to write the last block and get a 








new one. Upon return COMPRESS is called to put the statement in the new block. 









• CONTROL (IKJEFF06) controls this function. 

• CONTROL is called recursively by PROMPT 
GENERATE, and EXIT INTERFACE when 
they change or insert a statement. 

• Processing in CONTROL is the same 
for all calls. 



Process Statements & Build Data Sets 



WORK 



HISTORY 




CONTAB 



'SUBMIT TABLE 



| STMTPT 
I HISTPT 



| CURRENT STATEMENT | 


/S 


HISTORY 




'HISTORY TABLE' 


<^ 


WHATMOD 


N I 


=3 ™ | 


PRIORJCL 


: 


CURRJCL 




STATIC 



CONTROL IKJEFF06 



1 Identify the statement. 

2 If not JOB, and looking for 
JOB, go to finish 11, 

3 If not FIRST card and statement is 
DATA, go to COMPRESS. 9 

4 If JOB, check name. 

5 If not INEXIT take EXIT if 
required for present verb. 

O If not FIRST and verb shows 
end-of-job, go enqueue 
finished job and return to 7. 

7 a. If JOB, it is new and 

accepted so: copy new name 
and go get new SUBMIT 
data set and return to 9. 

b. If NULL, turn on FLUSH 
and go to finish 1 1 . 

8 If FIRST, verb is not JOB so: 

a. go generate JOB statement. 

b. and return to finish 11. 

9 Statement is accepted, 
call COMPRESS. 

10 If not enough space in the 
output block: 

a. go get new block. 

b. then go 
COMPRESS again 9. 

11 Return to caller. 



for inserted statements 
prior must be moved 
to current before 
calling CONTROL 




Where: L = Length of compressed statement 
T = ^ of bytes of text 
B = # of bytes of blocks removed 
C = Text 



Diagram 2-4. Process Statements 
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Writer Manager (IKJEFF12) controls this function. 

• It is entered from Control (IKJEFF06) for 
functions 1,2, and 3. 

• For function 4 it is entered from the Stae Routine 
( I K JEFF 11) under two conditions: 

a) If internal conditions requiring termination 
are detected, the command processor is in 
control and eventual return is to the TMP. 

b) If an Abend occurs, the Supervisor is in 
control and return is to the Supervisor to 
continue the Abend. 



These pointers are filled 
in by Writer Manager 



REQUEST 




Build and Enqueue Submit Data Set 



1.2 



DAPB30 



■.■:.. ' "" ' ""-.. -. — . ■ ' """■ ■ — - „ , " ■ . "" ' , — „ ": ' .:" j 'i 

Writer Manager IK JEFF12 



© 



If Function = 1 Allocate. 



2 jlf Function =2 Write. 



© 



3 Jlf Function = 3 Enqueue. 



(4 Jlf Functfi 



on = 4 Scratch. 



IKJEFF15 





Rl 






DAIRLIST 


DAIR 
CODE 


A/ 




It CODE 


| 'orx 













p 



DDNAME 



1 ]± 



15 



1.3 



IKJDAIR 



OUT- , . P DAIR 

PUT ^[£b DA p L 

inter i ^l v-^ — I p 

I |DAPB30 I 



DAPB18 



KEEP 



OUTDCB 



Jobname 



WORK AREA 



Zero before (T) 
and after © 



WORK AREA 





Description 


Routine 


Label 


FC 


1 A work area is set up. I . I — The DCB is moved to the work area. 


IKJEFF12 




KA 


1 .2 -- A DAPB30 block is built. 


IKJEFF15 




NA 


1.3 — The data set is allocated and the DD name is put in 


IKJDAIR 




NA 


DAPB30. 








1.4 — Then the DD name is moved to the DCB in the work area 


IKJEFF12 




KA 


and the data set is opened. Pointers to the DCB and the 








output block are put in the control table, the output block 








is initialized and return is made to CONTROL. 




INITBLK 




2 The output block is written using the PUT macro and the output block is reinitialized. 


IKJEFF12 


WRITE 


KB 


Return is made to CONTROL. 




INITBLK 


KA 


3 The output block is written. The data set is closed. Dair output Interface is entered 


IKJEFF12 


WRITE 


KB 


by way of SVC 100 (since Q55 is not a normal Sysout Q, Key Zero must be entered 




CLOSE 


KB 


to enqueue the data set). Dair Interface sets up a DAPB18 block for KEEP and Q class 




DEALLOC 


KB 


55 and DAIR is called to deallocate and enqueue the data set. 


IKJEFF15 




NA 


The " job submitted " message is sent. 


IKJDAIR 




NA 



Description 


Routine 


Label 


FC 


4 If the work area pointer is zero there is no data set to be scratched, (all started data 


IKJEFF12 




KB 


sets have been enqueued). Return to CONTROL. 




TURNOFF 


KA 


If the work area pointer is not zero the data set is closed and then Dair Output 




CLOSE 


KB 


Interface is called with a DAIRCODE of 3 to deallocate and scratch the data set. 




DEALLOC 


KB 


Dair Interface builds a DAPB18 block, initializes it to request deletion and 


IKJEFF15 




NA 


calls DAIR. 








Dair deallocates and scratches the data set. 


IKJDAIR 




NA 


Writer manager sends the "submit terminated " message. The work area is freed 


IKJEFF12 




KA 


and return is made to the caller. 




FREEUP 
FREEUPl 


KC 






TURNOFF 


KA 



Diagram 2-5. Build and Enqueue SUBMIT Data Set 



SUBMIT 97 



Part 7: TERMINAL Command Processor 




TERMINAL 



2 TERMINAL TSO Command Processor PLM - Vol, 6 (Release 20.1) 



Contents 



Section 1. INTRODUCTION . . • 5 

Functions .• . . . 5 

Environment ............... 5 

Physical Characteristics ....... ... 5 

Operational Considerations 6 

Section 2. METHOD OF OPERATION .............. 9 

TERMINAL Command Processing Summary o ........ . 9 

Introduction to the Diagrams - . 9 

Organization of the Diagrams ............. 10 

Symbols ...... 10 

Section 3. PROGRAM ORGANIZATION ....... 11 

Hierarchy ................. 11 

IKJEFT80 12 

Flowcharts ...... - ......... 13 

Section 4. DIRECTORY 15 

Routine Directory . . ............... 15 

Data Area Directory * . 15 

Section 5. DATA AREAS . . 17 

CPPL ......... „ ......... 17 

PDL o . . . . o . . 18 

PPL 19 

Section 6. DIAGNOSTIC AIDS ................ 21 

Register Summary . , „ ............... 21 

Messages ..„ * „ . . 22 

INDEX „ ............... 23 



TERMINAL 3 



Illustrations 



Charts 

Chart AA. TERMINAL Command Processing (1 of 2) 13 

Chart AB. TERMINAL Command Processing (2 of 2) H 

Diagrams 

Diagram 2-1. TERMINAL Operational Characteristics . . . 27 

Figures 

Figure 3-1. Control Module Hierarchy „ . «, .... 11 



4 TERMINAL TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Section 1. Introduction 



TERMINAL is a TSO Command Processor used to set the terminal control 
characters for the logged-on user of the system. 

Functions 

The TERMINAL Command Processor performs the following functions: 

• Obtains the TERMINAL command string from the command buffer, 

• Checks validity of line numbers, number of seconds , line 
size of the 2741 9 the number of display screen rows, and 
the display screen line size for the 2260. 

• Scans Parse Descriptor List (PDL) for element pointer. 

• Issues terminal status macros based on specified key 
options. 

• Issues appropriate messages. 

Environment 

The TERMINAL Command Processor operates in a TSO user's region under 
the protection key assigned to that region. The processor's static 
data and instructions require about 2K of storage. Additional storage 
is used by the TSO service routines (IKJPARS and IKJPUTL) . More 
definitive information about storage necessary for TSO and the TERMINAL 
Command Processor can be found in the Storage Estimates SRL , GC28-6551. 

Physical Characteristics 

The TERMINAL Command Processor consists of one load module. IKJEFT80 
is the main processing module. It handles all the major functions 
of the processor. Control is returned to the terminal monitor program 
(TMP) following processing. 
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Operational Considerations 

TERMINAL communicates with a terminal through the PUTLINE service 
routine (IKJPUTL). 

The PARSE service routine (IKJPARS) scans and syntax checks the 
command string. 

Input is the standard Command Processor Parameter List (CPPL) • 
Upon receiving control from the TMP, register 1 points to the list. 

The command buffer , pointed to by the CPPLCBUF , contains the 
TERMINAL command and its optional keyword parameters. 

The TERMINAL command consists of the following: 

• The command name TERMINAL or TERM (alias for TERMINAL) . 

• Optional keyword parameters to define operating 
characteristics (based on the type of terminal the user 
has). At least one of these keyword parameters must 
accompany the command name. Otherwise 9 the command is 
ignored. 

LINES (integer from 1-255) operand indicates an attention 
interrupt is to occur after the specified number of 
lines have been directed to the user's terminal. NOLINES 
operand specifies output lines count is not to be used 
to control the attention interrupt. 

SECONDS (integer from 1-255) operand indicates an 
attention interrupt is to occur after the specified 
number of seconds of program execution or continuous 
output to the user's terminal. NOSECONDS operand 
specifies that time is not to be used to control the 
attention interrupt. Any number specified will be 
rounded up to nearest multiple of 10 seconds. 

INPUT (string) operand specifies the character string 
entered at the end of any input line that will cause 
an attention interrupt. NOINPUT operand specifies no 
character string will cause an attention interrupt. 

BREAK operand indicates the user's terminal has the 
capacity of attention interrupt during input and output 
operations. NOBREAK operand specifies the user's 
terminal does not have both capacities. 
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TIMEOUT operand indicates the user's terminal keyboard 
will lock after a specified time interval of inactivity. 
NOTIMEOUT operand specifies the user's terminal keyboard 
will not lock due to inactivity. 

LINESIZE (integer from 1-255) operand specifies the 
length of the line to be printed or displayed at the 
user's terminal. 

SCRSIZE(n,m) operand specifies the screen dimensions 
of the display screen. "n" is the number of rows (1 
- 255) ; "m" is the length of each row (1 - 255) . 

CLEAR (string) operand specifies a character string that 
can be used to erase the display station screen. NOCLEAR 
operand specifies no character string will be used to 
erase the screen. 

Messages are printed at the terminal. These include diagnostic 
messages , informational messages, and prompting messages. 
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Section 2. Method of Operation 



This section describes the logic of the TERMINAL Command Processor. 
It emphasizes the flow of data and control information through buffers 
and tables and contains a detailed functional description of the 
TERMINAL operation. 

TERMINAL Command Processing Summary 

TERMINAL processing begins when control is received from the TMP. 
If no operands are associated with the TERMINAL command, a message 
is issued. Return is to the TMP. 

The PPL is initialized. The syntax of the TERMINAL command is 
checked. A special validity check is made on line number, number of 
seconds, and line size, if they are specified. Validity checks are 
also made on display screen line size and number of screen rows for 
2260. 

The PDL is checked for entries. If no entries are found, a message 
is issued. Control returns to the TMP. 

Status macros are set and issued, based on user specified options. 



Introduction to the Diagrams 

The remainder of this section consists of the method of operation 
diagrams of the TERMINAL Command Processor. 

The diagrams are designed to serve you in different ways: 

• Initially, they quickly provide you with an understanding of 
the programming functions of the command processor. 

• They show how the code supports the functions to be performed. 

• They provide "pointers" to the actual implementations (by cross 
references to the flowcharts or program listings) . 

You can use them to become familiar with the system, or later, 
to find your way to specific implementation points in the program 
listings or other areas of the PLM. 
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Organization of Diagrams 

Diagram 2-1 shows the functions of the controlling module. The diagram 
appears at the end of the PLM. 

The processing block lists the functions performed in producing 
final output. 

The descriptions provided at the left of the diagram list the major 
implementation steps performed in support of the processing functions. 

The routine label and flowchart cross-referencing provided with 
the descriptions are "key" points designed to show you where to pick 
up the implementations in the program listings or flowcharts. 

Symbols 

This PLM uses the following symbols: 



Heavy black arrow indicates begin reading the diagram here. 




White arrow indicates data transfer from one area to another. 



Black arrow shows flow of logic or passing of control. 



g 



-+* Thin black arrow indicates pointer to an item. 
-»» Dotted arrow indicates reference to an item. 

Off-page connector leads to a related diagram. 



-X Getting or Freeing main storage. 
Signifies passing of parameters. 
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Section 3. Program Organization 



This section describes the TERMINAL command processor routine. 
Flowcharts are included following the discussion. 

Hierarchy information is shown in Figure 3-1 • 



Hierarchy 



IKJEFT80 




IKJPARS 




IKJPUTL 



Figure 3-1. Control Module Hierarchy. 
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IKJEFT80 



Entry 
points 


IKJEFT80 is the primary entry point, 

LINNOCHK 

LINSZCHK Validity check routines 

SCHNK1 (Used by IKJPARS) • 

SCHNK2 

SECNCCHK 


Operation 


Checks validity of line numbers, number of seconds , line 

size of the 2741, the number of display screen rows, and 

the display screen line size for 2260. 

Scans PDL for element pointer. 

Issues terminal I/O controller (TIOC) macros based on 

specified keyword options. 

Issues appropriate messages. 


Data areas 
used by 
IKJEFT80 


PPL, CPPL, PDL. 


Routines 
called 


IKJPARS, IKJPUTL. 


Exits 


Normal return to caller, IKJEFT02. 
LINK to IKJPARS. 


Registers 


Upon entry, register 1 points to CPPL. 

Upon exit to the TMP, register 15 has a return code. 



Cross reference 



FC* MO** 



AA 
AB 



2-1 



FC* indicates flowcharts. 
MO** indicates method of operation diagram. 
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Chart AA, TERMINAL Command Processing (1 of 2) 



IKJEFT80 A1 



( E "^y J 


\ 


Bl 


Initialize Ptrs 
&ECB 



@- 




Prepare to Link 
to IKJPARS 



Validity 

Check 

Entry Points 

Include: 

LINNOCHK 

LINSZCHK 

SCNCK1 

SCNCK2 

SECNOCHK 



El 



IKJPARS 
Parse Operands 




Issue the 
STATTN to 
Set Lines 




Set Lines to 
Zero 



CWas 'NOSECENDS^ 
Entered ? 



Was \ C3 
'INPUT 
Keyword 
^ Entered, 

[No 



Was 

'NOINPUT' 

Entered ? 

No 



•BREAK' 
Specified ? 



•NOBREAK' 
Specified ? 



.Yes 



'TIMEOUT' 
Specified ? 



'NOTIMEOUT' 
Entered ? 



Yes 



'LINESIZE' 
Specified ? 



NOLINESIZE \Yes_ 
Specified ? 



Get Number of 
Ten Seconds 



B4 



Set to Zeroes 



Issue STATTN to 
Set Seconds 



.Yes 




Get Input 
Characters 




















D4 




i' D5 


> Yes 




Set Ptr to Zero 




Issue STATTN 
to Set Input 





















Issue STBREAK= 
Yes 



Issue STBREAK = 
No 



Issue STTIMEOU 
= Yes 



Issue STTIMEOU 

= No 





Yes 




J4 






J5 


J3 


Get Linesize 




Issue STSIZE 
to Set Size 








j 


* 
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Chart AB. TERMINAL Command Processing (2 of 2) 




A2 



Yes 




Get Ptr to 

Input 

String 




















B2 




v B3 


Yes 


Set Ptr to 
Zero 




Issue STCLEAR 








to Clear 2260 



STSIZE: Issue 
Macro to Set 
Screen Size 



& 



IKJRLSA = to Free 
PDL Storage 



( Return J 




Set Up Invalid 
Size Msg 



Kl 



PUT2MSG 
Put Out Message 



X 



C3 



©- 




J F2 



PUT2MSG 
Put Out Message 



PUT2MSG 
Put Out Message 



/ Set Up Screen 
*A Invalid Msg 



E3 

Set Up Screen 
Not Standard 
Msg 




Get Break Error 
Msg Ptr 



Get Nobreak 
Error Msg Ptr 



C4 



PUT2MSG 
Put Out Message 



C5 



PUT2MSG 
Put Out Message 
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Section 4. Directory 



This section contains a routine directory organized alphabetically 
by entry point or routine name. A data area directory is also provided. 
It is arranged alphabetically. Cross references for the method of 
operation diagrams and flow charts are provided where applicable. 

Routine Directory 



Entry Point 

or 
Routine Name 


Load 
Module 


Control 
Section 


Cross Reference 


MO 


FC 












IKJEFT80 


IKJEFT80 


IKJEFT80 


2-1 


AA-AB 


LINNOCHK 


IKJEFT80 


IKJEFT80 


2-1 


AA 


LINSZCHK 


IKJEFT80 


IKJEFT80 


2-1 


AA 


SCNCK1 


IKJEFT80 


IKJEFT80 


2-1 


AA 


SCNCK2 


IKJEFT80 


IKJEFT80 


2-1 


AA 


SECNOCHK 


IKJEFT80 


IKJEFT80 


2-1 


AA 



Data Area Directory 



Data Area 


Cross reference 


MO 


FC 








CPPL 


2-1 


AA 


PDL 


N/A 


AA 


PPL 


N/A 


AA 
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Section 5. Data Areas 



This section contains the major data areas in the TERMINAL command 
processor. Pertinent information, such as which routine created the 
data area, which routine updates or uses the data area, and what the 
data area contains, is included. 



CPPL— Command Processor Parameter List 

Created by: TMP. 

Used by: IKJEFT80. 

Contents: A list of pointers. 



Disp 


Field 


Size and Use 











(0) 


CPPLCBUF 


4 bytes — Points to command buffer. 


4 


(4) 


CPPLUPT 


4 bytes — Points to the User Profile Table 
(UPT) . 


8 


(8) 


CPPLPSCB 


4 bytes — Points to the Protected Step Control 
Block (PSCB) . 


12 


(C) 


CPPLECT 


4 bytes — Points to the Environment Control 
Table (ECT) . 



Cross reference 



FC MO 
AA N/A 
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PDL— PARSE Descriptor List (Local Description) 

Created by: IKJPARS. 

Used by: IKJEFT80. 

Contents: IKJPARS Descriptor List, Pointed to by PDEPTR, 



Disp 


Field 


Size and Use 








(0) 


STORPTR 


4 bytes — Points to PARSE storage for DSECT. 


4 (4) 


STORB 


4 bytes — Subpool length • 


8 (8) 


LNE 


2 bytes — Line keyword number • 


10 (A) 


SECSNO 


2 bytes — Seconds keyword number. 


12 (C) 


IPUT 


2 bytes — Input keyword number. 


14 (E) 


LINSZ 


2 bytes — Line size keyword number. 


16 (10) 


BRK 


2 bytes — Break keyword number. 


18 (12) 


TIMOUT 


2 bytes — Timout keyword number. 


20 (14) 


LINE1 


4 bytes — Points to line number. 


24 (18) 


LINE 2 


2 bytes — Length of line number. 


26 (1A) 


LINE 3 


2 bytes — Reserved. 


28 (1C) 


SECS1 


4 bytes — Points to number of seconds. 


32 (20) 


SECS2 


2 bytes — Length of number of seconds . 


34 (22) 


SEC 3 


2 bytes — Reserved. 


36 (24) 


INPUT1 


4 bytes — Points to input. 


40 (28) 


INPUT 2 


2 bytes — Length of input. 


42 (2A) 


INP3 


2 bytes — Reserved. 
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PDL — Parse Descriptor List (Local Description) (Cont.) 



Disp 


Field 


Size and Use 








44 (2C) 


LINESZ1 


4 bytes — Points to line size. 


48 (30) 


LINESZ2 


2 bytes — Length of line size. 


50 (32) 


LINS3 


2 bytes — Reserved. 



Cross reference 



FC MO 
AA N/A 



PPL— PARSE Parameter List 

Created by: IKJEFT80. 
Used by: IKJPARS. 
Contents: Parameter List. 



Disp 


Field 


Size and Use 











(0) 


PPLUPT 


4 bytes — Points 


to 


UPT. 


4 


(4) 


PPLECT 


4 bytes — Points 


to 


ECT. 


8 


(8) 


PPLECB 


4 bytes — Points 


to 


ECB. 


12 


(C) 


PPLPCL 


4 bytes — Points 


to 


PCL. 


16 


(10) 


PPLANS 


4 bytes — Points 


to 


answer place. 


20 


(14) 


PPLCBUF 


4 bytes — Points 


to 


command buffer. 


24 


(18) 


PPLUWA 


4 bytes — Points 


to 


user work area. 



Cross reference 



FC MO 
AA N/A 
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Section 6. Diagnostic Aids 



This section contains a register summary and the messages from the 
TERMINAL command processor. 



Register Summary 



Register 


Use 






1 


Points to CPPL. Used as work register. 


2 


Work register. 


3 


Work register. 


7 


Work register. 


12 


Base register. 


13 


Save area register. 


14 


Return register. 


15 


Return code register. 
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Messages 



Message ID 


Message Text 






IKJ56655I 


NO OPERANDS , COMMAND IGNORED 


IKJ56656I 


INVALID LINESIZE OPERAND, USE SCRSIZE 


IKJ56657I 


INVALID SCRSIZE OPERAND, USE LINESIZE 


IKJ56658I 


SCREEN SIZE NOT STANDARD, SCREEN CONTROL 
ERROR MAY OCCUR 


IKJ56659I 


BREAK INVALID FOR YOUR TERMINAL 


IKJ56660I 


NOBREAK INVALID FOR YOUR TERMINAL 


IKJ56661I 


TIMEOUT INVALID FOR YOUR TERMINAL 


IKJ56662I 


NOTIMEOUT INVALID FOR YOUR TERMINAL 


IKJ56663I 


INVALID NUMBER OF ROWS 


IKJ56664I 


INVALID LENGTH OF ROW 


IKJ56667I 
♦IKJ56667I 


COMMAND SYSTEM ERROR+ 
PARSE ERROR CODE XXX 



* indicates second level message for documentation only 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/ 3 60 Operating System; Program Logic 
Manual Master Index , Order No. GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 
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Inputs 



TERMINAL Processing 



Reg 1 



CPPL 



f ECT 



From T MP | ^ 



W 1 Check for 



i Command Buffer 



TERMINAL 



k ECT 




Descr' 


ption 


Routine 


Label 


FC 


1 


The ECTNOPD bit of the ECT is checked to see if there are any TERMINAL keywords. 
If none, the command is ignored, a message is printed and control returns to the TMP. 


IKJEFT80 


IKJEFT80 


AA 


2 


The PARSE routine is given control to syntax check the command. In addition IKJEFT80 
passes five entry points (LINNOCHK, SECNOCHK, LINSZCHK, SCNCKl, and 
SCNCK2) validity checking routines within IKJEFT80. If line or second keywords 
are provided, parse will temporarily pass control back to the appropriate routine for 
validity checking. When PARSE returns control to IKJEFT80 for mainline processing, 
it provides a return code that informs IKJEFT80 of the results of the validity checks. 








3 


IKJEFT80 checks the PDL pointer (PDEPTR) to see if the PDL is empty. If it is, the 
terminal command is ignored, a message is written and control returns to the TMP. 








4 


The TERMINAL status macros are set up and issued according to the specified keyword 
values. The end result is the placing of values in output fields, as shown at the right 
of this diagram. 






AA 
AB 


5 


The PDL is freed and control returns to the TMP. 




FREEUP 





IWl 



options. 



If none, return. 



^ Syntax check. 
Validity check. 



3 Check PDL. 



*r Set up and 



p and issue appropriate macros. 



Free PDL and return. 




Input 
Keyword 


Resultant 
Macro 




Output Arec 




LINES 

NOLINES STATTN 

SECONDS rTATTK 
NOSECONDS >TATTN 

™,, T STATTN 
NOINPUT 




TSB 


TSBATNLC 
TSBATNTC 
TSBATNCC 

TSBLNSZ 
TSBLNNO 

TSBERSDS 






H > 








H > 








i — — j\ 

1 V 




X, 




LINESIZE 
SCRSIZE 
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STSIZE 
2260 — - 


m 
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NOCLEAR 


STCLEAR 


r^ 








BREAK 
NOBREAK 


STBREAK 




OCB 


QCBFLAG 










TIMEOUT 
NOTIMEOU 






LCB 


LCBINHBN 






T STTIMEOU 


L— j\ 




I 


l/ 





I 



Note: The PUTLINE macro is used for I/O 
operations to the terminal. 



Note: The TSB, QCB, and 
LCB are initially set 
up by LOGON. 
These areas are 
subsequently referred 
to by the TCAM 
interface. 



Diagram 2-1. TERMINAL Operational Characteristics 
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Section 1. Introduction 



The TIME Command Processor computes the total session time used by 
the terminal user. 

Functions 

The TIME Command Processor performs the following functions: 

• Initializes pointers to the parameter lists used. 

• Obtains the time from the PSCB fields, using the TIME macro. 

• Converts the time to printable characters. 

• Prints time for user with the PUTLINE (IKJPUTL) service routine. 

Environment 

The TIME Command Processor operates in a TSO user's region under the 
protection key assigned to that region. 

The processor's static instructions and data require about 600 bytes 
of storage. An additional 1.5K is needed for the service routine 
IKJPUTL. More definitive figures on storage needed for the TSO option 
and the TIME Command Processor can be found in the publication IBM 
System/ 360 Operating System; Storage Estimates , GC28-6551. 

The processor is called by the Terminal Monitor Program (TMP), rather 
than attached as most processors are. 

Interfaces between this processor and the operating system are: 

• The TMP that calls TIME. 

• The TSO service routine IKJPUTL. 

• The system macros. CALL, TIME, PUTLINE, TSEVENT, IKJPSCB. 



TIME 



Operational Considerations 

Input to the processor is the Command Processor Parameter List (CPPL) • 

The command buffer , pointed to by CPPLCBUF, contains the TIME command. 
There are no positional operands or optional keywords. 

Output consists of a message to the terminal user, giving him the 
execution and session time. 
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Section 2. Method o£ Operation 



This section describes the logic of the TIME Command Processor. It 
emphasizes the flow of data and control information through buffers 
and tables , and contains detailed functional descriptions of the TIME 
operation. 

Program logic information for the TMP and the TS0 service routine 
used by the TIME Command Processor is contained in the IBM System/ 360 
Operating System; Time Sharing Option Terminal Monitor Program and 
Service Routines Program Logic Manual , GY28-6770. 

TIME Command Processing Summary 

The TIME Command Processor computes the total session time used by 
the terminal user. 

TIME receives control from the TMP by a CALL when a terminal user 
enters the TIME command. The processor takes the PSCB time fields 
and converts them to printable characters. 

The resultant figures are written to the terminal user by the IKJPUTL 
service routine. 

Introduction to the Diagram 

The remainder of this section consists of the method of operation 
diagram that can be found at the back of the PLM. 

The diagram is designed to serve you in different ways: 

• Initially , it quickly provides you with an understanding of the 
programming functions of the command processor. 

• It shows how the code supports the functions to be performed. 

You can use it to become familiar with the system, or later, to find 
your way to specific implementation points in the program listings 
or other areas of the PLM. 



TIME 



Organization of Diagram 

The processing block lists the functions performed in producing final 
output. The descriptions provided at the left of the diagram list 
the major implementation steps performed in support of the processing 
functions. 

Symbols 

This PLM uses the following symbols: 



Heavy black arrow indicates begin reading the diagram here. 



White arrow indicates data transfer from one area to another. 



Black arrow shows flow of logic or passing of control. 

►» Thin black arrow indicates pointer to an item. 
»- Dotted arrow indicates reference to an item. 

Off-page connector leads to a related diagram. 

-K Getting or Freeing main storage. 
Signifies passing of parameters. 
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Section 3. Program Organization 



Only one control section is required for the TIME Command Processor. 

No overall hierarchy is provided. The flowchart follows the information 

on the control section. 



IKJEFT25 



Entry 
point 


Entered from IKJEFT02 or IKJEFT03 by a CALL macro 
instruction. IKJEFT25 . 


Operation 


Obtains the amount of CPU time, and execution time from 
the PSCB, and computes the elapsed time for the terminal 
session from the PSCB. Gets a buffer for output message. 
Converts times to hours, minutes # and seconds. Prints 
converted times using the PUTLINE macro. 


Data Areas 
used 


Command Buffer, ECB, ECT, Parameter list (unnamed), 
PSCB, PTPB, PUTLBUF, PUTPL, TIMESMSG, TIMESBUF, UPT. 


Routines 
called 


IKJPUTL. 


Exits 


Normal return to caller. 


Registers 


Upon entry, register 1 points to a parameter list. 
Standard linkage conventions. 
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Chart AA. TIME Command Processing 
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Section 4. Directory 



The routine directory and the data area directory normally found in 
this section of a PLM are not provided. This command processor contains 
one routine and 7 data areas. 
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Section 5. Data Areas 



This section contains the major data areas in the TIME Command 
Processor. Pertinent information, such as which routine constructed 
the data area, which routine uses the data area, and what the data 
area contains is included. 



Parameter List Passed by TMP 

Constructed by: TMP. 

Used by: IKJEFT25. 

Contents: Parameter list pointed to by register 1 upon entry. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 





(0) 


unnamed 


4 bytes 


Points to command buffer. 


4 


(4) 


unnamed 


4 bytes 


Points to User Profile Table 
(UPT). 


8 


(8) 


unnamed 


4 bytes 


Points to Protected Step Control 
Block (PSCB). 


12 


(C) 


unnamed 


4 bytes 


Points to Environment Control 
Table (ECT). 
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PSCB— Protected Step Control Block 

Constructed by: LOGON. 

Used by: IKJEFT25. 

Contents: User attribute and accounting data. 
PSCBPTR. 



Pointed by the 



Displacement 
Dec . Hex . 


Field 


Subfield 


Size 
(byte) 


Use 


(0) 


PSCBUSER 




7 


Userid. 


7 (7) 


PSCBUSRL 




1 


Length of userid. 


8 (8) 


PSCBGPNM 




8 


Esoteric group name. 


16 (10) 


PSCBATR1 




1 


User attributes (for IBM 
use) . 


PSCBCTRL 




X f 80 f indicates OPERATOR 
command user. 


PSCBACCT 




X^O' indicates ACCOUNT 
command user. 


PSCBJCL 




X f 20 f indicates SUBMIT 
command user. 






Remaining 5 bits are 
reserved. 


17 (11) 


unnamed 






Reserved 


18 (12) 


PSCBAT2 




1 


User attributes (for 
installation use). 


19 (13) 


unnamed 




1 


Reserved. 


20 (14) 


PSCBCPU 




4 


Cumulative CPU time 
session. 


24 (18) 


PSCBSWP 




4 


Cumulative time resident 
session. 


28 (1C) 


PSCBLTIM 




4 


Actual LOGON time of day. 


32 (20) 


PSCBTCPU 




4 


Total CPU time (accounting 
period) . 


36 (24) 


PSCTSWP 




4 


Total time resident 
(accounting period). 
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PSCB — Protected Step Control Block (Cont.) 



Displacement 
Dec. Hex. 


Field 


Subfield 


Size 
(Byte) 


Use 


40 (28) 


PSCBTCON 




4 


Total time connected 
(accounting period). 


44 (2C) 


PSCBTCOl 




4 


Total time connected 
(accounting period) . 


48 (30) 


PSCBRLGB 




4 


Points to relogon buffer. 


52 (34) 


PSCBUPT 




4 


Points to UPT. 


56 (38) 


PSCBUPTL 




2 


Length of UPT. 


58 (3A) 


PSCBRSZ 




4 


Region size requested in 
2K units. 


62 (3E) 


PSCBU 




8 


Reserved for installation 
use. 



PTPB— IKJPUTL Parameter Block 

Constructed by: IKJEFT25. 

Used by: IKJPUTL. 

Contents: The IKJPUTL parameter block is used to return pertinent 
information and to control IKJPUTL functions. It is 
pointed to by PTPBPTR. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


PTPBOPUT 


4 bytes 


Address of output line descriptor 
or data line. 


4 (4) 


PTPBFLN 


4 bytes 


Points to formatted line 
returned. 
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PUTLBUF— IKJPUTL Buffer 

Constructed by: IKJEFT25. 

Used by: IKJPUTL. 

Contents: IKJPUTL message list. Pointed to by PUTPARMP. 



Displacement 
Dec . Hex . 


Field 


size 


Use 





(Q) 


SEGNUM 


4 bytes 


Number of segments. 


4 


(4) 


SEG1PTR 


4 bytes 


First segment pointer. 


8 


(8) 


SEG2PTR 


4 bytes 


Second segment pointer. 


12 


(C) 


SEG3PTR 


4 bytes 


Third segment pointer. 


16 


(10) 


SEG4PTR 


4 bytes 


Fourth segment pointer. 



PUTPL-IK JPUTL Parameter List 

Constructed by: IKJEFT25. 

Used by: IKJPUTL, 

Contents: IKJPUTL parameter list. Found by adding the contents of 
register 12 to the displacement value of PUTPL. 



Displacement 
Dec. Hex. 


Field 


Size 


Use 


(0) 


UPTPTR 


4 bytes 


Points to UPT. 


4 (4) 


ECTPTR 


4 bytes 


Points to ECT. 


8 (8) 


ECBPTR 


4 bytes 


Points to event control block. 


12 (C) 


PUTPARMP 


4 bytes 


Points to PUTLBUF. 
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TIMEMSG— Primary Message Buffer 

Constructed by: IKJEFT25. 

Used by: IKJEPT25. 

Contents: Primary message buffer. Occupies same space as MSGMOD, 



Di splacemen t 
Dec. Hex. 


Field 


Size 


Use 


(0) 


TIMLEN 


2 bytes 


Length of primary segment. 


2 (2) 


TIMOFF 


2 bytes 


Offset to primary segment. 


4 (4) 


TIMMSG 


42 bytes 


Primary message segment. 
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TIMESBUF— Segmented Output Message Buff er 

Constructed by: IKJEFT25. 

Used by: IKJEFT25, IKJPUTL. 

Contents: The segmented output message buffer • Found by adding the 
contents of register 12 and the displacement value of 
TIMESBUF in the cross reference table. 



Displacement 
Dec . Hex . 


Field 


Size 


Use 


(0) 


CPULEN 


2 bytes 


CPU formatted length. 


2 (2) 


CPUOFF 


2 bytes 


CPU time offset. 


a (4) 


cpustime 


8 bytes 


CPU time. 


12 (C) 


EXLEN 


2 bytes 


Execution time length. 


14 (E) 


EXOFF 


2 bytes 


Execution time offset. 


16 (10) 


EXSTIME 


8 bytes 


Execution time. 


24 (18) 


SESLEN 


2 bytes 


Session time length. 


26 (1A) 


SESOFF 


2 bytes 


Session time offset. 


28 (IC) 


CPUTTIME 


8 bytes 


Total session time. 
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Section 6. Diagnostic Aids 



This section contains a register summary and the messages from the 
TIME Command Processor. 



Register Summary 



Register 


Use 





Work register 


1 


Parameter passing register 


2 


Work register 


3 


Work register 


7 


Work register 


8 


Work register 


11 


Base register for static code 


12 


Base register for dynamic storage 


13 


Save area register 


14 


Return register 


15 


Return code register 



Messages 

The only message that is written from this processor is 

IKJ56657I CPU - HH:MM:SS EXECUTION - HH::MM::SS SESSION - HH:MM:SS 
where H means hours # M means minutes , and S means seconds • 
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Inputs 



IKJEFT25 Converting Time Information to Printable Format 



Parameters Passed 



CPTR 
UPTR 
PPTR 
EPTR 



PSCBCPU 
PSCBSWP 
PSCBLTIM 



f Command buf 


f UPT 


| PSCB 


| ECT 


PSCB 




CPU time 


Execution time 


Logon time 





The TIME command processor uses PSCB time fields, which 

are in timer units (26.04 micro seconds) and converts them 

to a printable format of hours, minutes and seconds (HH :MM :SS) 

The PUTLINE service routine is used to write time information 

to the user. 




Obtain Storage and 
Initialize. 



Convert CPU time. 



<P 



Save info for 
PUTLINE. 



Note: The above operation 
is performed for execution 
time and LOGON time. 
Each converted result is 
saved for PUTLINE. 



Issue TIME macro to get 
present time. 
Convert, as above. 

Calculate the present total 
session time. 



Set up buffers for 
PUTLINE. 



Free Storage. 
Return to TMP. 



CONVERT Subroutine 



Register 2 



i PSCBCPU 



$ 



TIMEBUF 



H :M :S 



Initialize 
TIMEBUF with 
Colons. 

Convert to 
Printable data. 
Put in TIMEBUF. 



PUTLINE 



Write Time message to user 




Diagram 2-1. TIME Command Processing 
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Section 1. Introduction 



WHEN/END is a TSO command processor designed to terminate a command 

or a command procedure, which is a prearranged sequence of TSO commands. 

Optionally 9 a new command may also be initiated. 

The action taken upon execution of the WHEN command is determined 
by a comparison between the return code which has been set by the 
previous command processor and an integer (1 to 4 characters) indicated 
in the WHEN command. 

Functions 

The END command processing does the following: 

• Marks the current procedure for deletion. 

• Returns control to the caller. 

The WHEN command processing does the following: 

• Obtains the WHEN command string from the command buffer. 

• Checks validity of the operator. An operator may be = # < § -! = , >, 
<=, -,>, >=, -,<, EQ, LT, NE, NG, GE, or NL. 

• Uses this operator to compare the previous return code with an 
indicated integer. 

• If the comparison is false, causes execution to proceed as if the 
WHEN command had been a NOP. 

• If the comparison is true, marks the current procedure for deletion, 

• Checks for an action operand (new command) . 

• Places any new command on the input stack. 

• Terminates the procedure if END is specified (Defaults to END if 
nothing is specified) . 

• Returns control to the caller. If WHEN is entered from a terminal , 
control is returned there. It returns there immediately if the 
action operand is END, or it returns there after execution of the 
command if the action operand is another command. 
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Environment 

The WHEN/END Command Processor operates in a TSO user's region under 
the protection key assigned to that region. The processor's data and 
instructions require about 6K of storage • About 400 bytes of dynamic 
storage is used. Definitive requirements on space needed to operate 
using the WHEN/END Command Processor can be found in the Storage 
Estimates SRL, GC28-6551. 

Physical Characteristics 

The processor consists of one load module containing the control section 
(IKJEFE11) and the message control sections (IKJEFE15 and IKJEFE16). 
IKJEFE11 handles all major functions of the processor and returns 
control at the end of processing to the Terminal Monitor Program (TMP) . 
The message control sections handle the mechanics of sending messages. 

Operational Considerations 

The WHEN/END Command Processor is normally invoked during the execution 
of a command procedure. The WHEN/END command consists of the following: 

• The command name WHEN or the command name END. If END is 
specified , the procedure is terminated. 

• The positional operands required for the WHEN command: SYSRC, 
which indicates that the return code in the Environmental 
Control Table (ECT) is to be tested; the operator 

to be used ; and an integer to which the return code 
is to be compared. 

• Any optional action operand. Any valid TSO command may be 
entered with its associated parameters. 

Input is a return code from the previous command processor which 
is to be compared with an integer specified in the WHEN statement. 
The operator used for the comparison is also specified in the WHEN 
statement. 

Output includes the same return code from the ECT as before WHEN 
executed. 

Messages are printed at the terminal. These include diagnostic 
messages , and prompting messages (if not suppressed). 



WHEN/END TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Section 2. Method of Operation 



This section briefly summarizes the method of operation of the WHEN/END 
Command Processor, It includes diagrams which illustrate basic 
functions. 

WHEN Command Processing Summary 

WHEN command processing begins when control is received from the TMP. 
The general parameter list is initialized for PARSE and control is 
given to the IKJPARS service routine to check the syntax of the WHEN 
command. Upon successful completion # control returns to IKJEFE11, 
which checks the operator. If valid, this operator is used to compare 
the return code to the specified integer. If the comparison is true, 
control goes to IKJSTCK, which marks the current procedure (the top 
entry of the input stack) for deletion. Following this, the action 
operand (if any) is placed on top of the input stack. On an error 
diagnostic message is issued and control returns to the caller 
(either the TMP or the terminal) . 

END Command Processing Summary 

The END command processing begins when control is received from the 
TMP. The general parameter list is initialized for STACK. If the 
command is valid t the current procedure is marked for deletion and 
control returns to the caller. 

Introduction to the Diagrams 

The remainder of this section consists of the method of operation 
diagrams of the WHEN/END command processor. The diagrams appear at 
the end of the PLM. 

The diagrams are designed to serve you in different ways: 

• Initially, they quickly provide you with an understanding of the 
programming functions of the command processor. 

• They show how the implementations support the functions to be 
performed. 

• They provide "pointers* to the actual implementations (by cross 
references to the flowcharts or program listings) . 
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You can use them to become familiar with the system, or later , to 
find your way to specific implementation points in the program listings 
or other areas of the PLM. 

Organization of Diagrams 

Diagram 2-1 shows WHEN command processing. Diagram 2-2 shows END 
command processing. 

The processing block lists the functions performed in producing 
intermediate or final output. 

The descriptions provided at the left of the diagram list the major 
implementation steps performed in support of the processing functions. 

The routine label and flowchart cross-referencing provided with the 
descriptions are "key" points designed to show you where to pick up 
the implementations in the program listings or flowcharts. 

Symbols 

This PLM uses the following symbols: 



Heavy black arrow indicates begin reading the diagram here. 
White arrow indicates data transfer from one area to another. 

Black arrow shows flow of logic or passing of control. 

Thin black arrow indicates pointer to an item. 
Dotted arrow indicates reference to an item. 

Off-page connector leads to a related diagram. 





^ Getting or Freeing main storage. 

jKM pP Signifies passing of parameters. 



8 WHEN/END TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Section 3. Program Organization 



This section describes the WHEN/END Command Processor routines and 
how they relate to each other • Flowcharts are included at the end 
of the discussion. 

Figure 3-1 shows the control module hierarchy. Figure 3-2 shows 
the message control hierarchy. 



Hierarchy 




Figure 3-1. Control module hierarchy 




Figure 3-2. Message module hierarchy 
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IKJEFE1 1— Control Module 



Entry 
point 


IKJEFEll — from the TMP. 


Operation 


A check is made to determine if the command is END. 
If the command is END, the current element on the 
input stack is marked for deletion. 
Control returns to the user. 

If the command is WHEN, two parameters, an operator 
and an integer are passed to IKJEFEll. Operation 
is as follows: 

• Check to see if previous command processor was 
abended. If it has, a message is issued and control 
returns to the user. 

• Prepares buffer for IKJPARS. 

• Syntax and validity checks the WHEN command and the 
operator. 

• A comparison is made between .the most recent return 
code and the integer. If the comparison is satisfied, 
the current element on the input stack is marked for 
deletion. If the comparison is not satisfied, the 
processor is terminated. 

• Any valid action operand found is put on the input 
stack. 

• Verification of placement is made and if 
unsuccessful a message is issued. 

• Control returns to the caller. 


Data areas 
defined by 
IKJEFEll . 


IKJWEEN used as a general work area. 

IKJLSD 

IKJPPL 


Data areas 
updated by 
IKJEFEll 


IKJWHEN 

ECT (Indirectly. The TMP puts in the return code 

passed to it by IKJEFEll.) 


Data areas 
used by 
IKJEFEll 


IKJCPPL IKJPPL PCL 
IKJECT IKJSTPL PDL 
IKJLSD IKJWHEN IKJSTPB 
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IKJEFE11 — Control Module (Cont.) 



Routines 
called 


LINK to IKJPARS (To check syntax.) 

IKJRLSA (To release PARSE parameter list.) 

LINK to IKJSTCK (To add or delete element from the input 

stack.) 


Exits 


RETURN to TMP. 
CALL to IKJEFE15. 


Registers 


Upon entry — All registers are saved. 

Reqister Contents 

1 Pointer to CPPL. 

13 Pointer to register save area. 

14 Return address. 

15 Entry point address. 

Upon exit — All registers are restored. 

Upon exit to IKJEFE15, register 1 has address of 

IKJWHEN. 

Upon exit to TMP, register 15 has the same return code 

as originally in the ECT. 



Cross reference 



FC* 



MO** 



AA 


2-1 


AB 


2-2 


AC 





FC* indicates flowcharts 
MO** indicates method of operation diagrams 
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IKJEFE 15— Message Module 



Entry 
point 


IKJEFE15. 


Operation 


IKJEFE15 sends a message to the terminal. 


Data areas 
defined by 
IKJEFE 15 


PTPB. 


Data areas 
updated by 
IKJEFE15 


PTPB (within IKJWHEN). 


Data areas 
used by 
IKJEFE15 


IKJWHEN 

IOPL 

PTPB. 


Routines 
called 


IKJPUTL (To send the message.) 


Exits 


TO IKJEFE11 via a RETURN (BR 14). 


Registers 


Upon entry — All registers are saved. 

Register 1 points to the work area set up in IKJEFE11 

(IKJWHEN) . 

Upon exit — All registers are restored. 



Cross Reference 



FC 



MO 



AA 


2-1 


AB 


2-2 


BA 
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Chart AA. WHEN/END Command Processing Overview 



Cross Reference: Diagram 2-1, 2-2. 



f Entry J 



Initialize 
Service Routine 
Parameter List 



Parse WHEN 
Command 
with IKJPARS 
Service Routine 
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to Issue 
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( Return J 



©• 




ADD 



Add Element 
to Input 
Stack with 
Service Routine 



Yes 
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Chart AB. IKJEFE11. WHEN/END Command Processing (1 of 2) 



Cross Reference: Diagram 2-1. 



A2 



( Entry j 



Save Registers 



PROCESS 



Get WHEN Work 
Area. Set Up 
Common Parm. 
List and Control 
Blocks 



D2 



Scan for the 
Cmd to Add 
to the Input 
Stack 



Issue Error 
Message 






Yes 




TESTEND 


H4 


H3 




Verify END 
Not Prefix 
of Action 
Operand 












1 


' , 




1 A 


c 



( Return J 
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Chart AC, IKJEFE11- WHEN/END Command Processing (2 of 2) 



Cross Reference: Diagram 2-1. 



VALEXIT4 




GETCODE 



Set Message 
Offset for 
Correct Msg 



Yes 




Get Previous 
Cmd Processor 






Return Code 
from ECT 






D3 






Compare it with 
Numeric in 
WHEN Cmd 




Yes 



COMPARE 


A4 


/Validity CheckA 
\^ Entry Point J 


B4 


Validity Check 
Relational 
Operator on 
WHEN Cmd 


v C4 


Set Rtn Code 
= Valid 
4 = Invalid 
Operator 


' 


D4 


f Return to A 
V^ IKJPARS J 
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Chart BA, IKJEFE15. Message Module 



Cross Reference: Diagram 2-2. 



IKJEFE15 



f Entry J 



B2 



Save Pointer 
to Work Area 
Containing 
Message Offset 



C2 



Set Pointer to 
Message Csect 



D2 



Set Up Address 
to IKJPUTL 
Parm Block 



Find Correct 
Message. Save 
Msg Length for 
the Buffer 



Add Source 
Descriptor 
Length to 
Buffer Length 



Get Buffer and 
Descriptor 



Initialize 
Descriptor to 
Point to Msg. 
Move Msg to 
Buffer 



Convert the 
Abend or 
Return Code to 
Print Char 



Find Correct 
Second Level 
Message and 
Message Length 



C3 



Get Second Buffer 
and Descriptor 
for Second Level 
Message 
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Section 4. Directory 



This section contains a routine directory and a data area directory, 
both arranged alphabetically. Cross references for flowcharts and 
method of operation diagrams are provided for convenience, when 
applicable. 



Routine Directory 



Entry point. 
Routine name 


Load 
Module 


Control 
Section 


Cross reference 


MO 


FC 


IKJEFE11 


IKJEFE11 


IKJEFE11 


2-1,2-2 


AA 


IKJEFE15 


IKJEFE11 


IKJEFE15 


2-1,2-2 


AB 



Data Area Directory 



Data Area 


MO 


FC 


Command Buffer 


2-1 


AA 


CPPL 


2-1 


AA 


ECT 


2-1 


N/A 


IKJWHEN 


N/A 


AA,AB,AC,BA 


IOPL 


N/A 


AA,AB,BA 


LSD 


2-1 


AA,AB 


PDL 


N/A 


AA 


PPL 


2-1 


AA 


STPL 


2-1,2-2 


AA,AB 
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Section 5. Data Areas 



This section presents the major data areas in the WHEN/END Command 
Processor, Pertinent information, such as which routine created the 
data area, which routine uses or updates the area, and what the area 
contains, in included. 



Command Buffer 

Constructed by: TMP. 

Used by: IKJEFE11, 

Contents: Command buffer pointed to by CPPLCBUF in the CPPL- 




z. 



^v- 





-^ 



2 byte length field ^--2 byte offset ^-Variable length for command 



Cross reference FC MO 

AA 2-1 
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CPPL — Command Processor Parameter List 

Constructed by: TMP. 

Used by: IKJEBLI1. 

Location: The address of this list is contained in register one. 



Disp 
Dec (Hex) 


Field 


Size 
(Bytes) 


Use/Contents 


(0) 


CPPLBUF 


4 


Points to Command Buffer • 


4 (4) 


CPPLUPT 


4 


Points to UPT. 


8 (8) 


CPPLPSCB 


4 


Points to PSCB. 


12 (C) 


CPPLECT 


4 


Points to ECT. 



Cross reference FC MO 

AA 2-1 



ECT — Environment Control Table 



Constructed by: The Environment Control Table (ECT) is built by the 

TMP and stored in a nonshared subpool. 

Used by: Its fields can be modified by a command processor, or by a 
service routine, but cannot be freed. 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 
(Bytes) 


Use/Contents 


(0) 


ECTRCDF 




1 


High order bit on 
indicates a CP abend. 


1 (1) 


ECTRTCD 




3 


If the high order bit is 
on in ECTRCDF, the high 
order 12 bits hold the 
system abend code; the 
low order 12 bits hold 
the user abend code. 
Return code from previous 
CP. 
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ECT — Environment Control Table (Cont.) 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 
(Bytes) 


Use/Contents 


4 (4) 


ECTIOWA 




4 


Address of I/O work area. 


8 (8) 


ECTMSGF 




1 


High order bit on 
indicates delete second 
level message. 


9 (9) 


ECTSMSG 




3 


Address of second level 
message chain. 


12 (C) 


ECTPCMD 




8 


Primary command name. 


20 (14) 


ECTSCMD 




8 


Secondary command name. 


28 (1C) 


ECTSWS 




1 


Switches . 


ECTNOPD 




— ON=No operands exist 
in command buffer. 


* 




1 — Reserved. 


ECTATRM 




3 — ON=LOGON/OFF 

requested TMP to 
LOGOFF user. 


ECTNMAL 




4 — ON^No broadcast 
notices to be 
received at LOGON. 


ECTNNOT 




5 — ON=No broadcast 
notices to be 
received at LOGON. 


* 




6 — Reserved. 


* 




7 — Reserved. 


29 (ID) 


* 




3 


Reserved. 



Cross reference FC MO 

N/A 2-1 
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IKJWHEN— General Work Area (80 bytes) 

Constructed by: IKJEFEll. 

Updated by: IKJEFE11. 

Used by: IKJEFE11. 

Contents: A general work area. 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 
(Bytes) 


Use/Contents 


(0) 


WHPL 




4 


Points to the STACK parameter 
list. 


4 (4) 


Unnamed 




4 


Points to the PARSE parameter 
list. 


8 (8) 


Unnamed 




28 


General parameter list. 


36 (24) 


Unnamed 




4 


Points to STACK parameter 
block. 


40 (28) 


WHPBLOCK 




20 


General parameter block used 
for STACK , PARSE. 


60 (3C) 


WHP ARAMS 




4 


Points to PARSE descriptor 
list. 


64 (40) 


WHATTECB 




4 


Service routine or ATTN 
routine ECB. 


68 (44) 


WHMSG1 




1 


Offset for message module. 


69 (45) 


WHMSG2 




1 


Secondary message index. 


70 (46) 


WHSWI 




1 


Status byte. 


WHEND 


1 bit 


Indicates END command in 
control . 




7 bits 


Not used. 


71 (47) 


WHCHAR 




1 


First character of next command 
if delimiter was omitted. 


72 (48) 


WHENWAS 




4 


Not used. 
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IKJWHEN — General Work Area (80 bytes) (Cont.) 



Disp 
Dec (Hex) 


Field 


Subfield 


Size 
(Bytes) 


Use/Contents 


76 (4C) 


WHRCODE 




4 


Points to service routine 
return code. Indicates 
valid operation. 


84 (50) 


WHCOMM 




4 


Points to command to be added 
to input stack • 


84 (54) 


WHCMD 




8 


Name of command for message 
module. 


88 (58) 


WHGETM 




4 


GETMAIN size, subpool number 
for PUTL, STACK. 


WHSUBP 


1 


Subpool . 


WHFILL 


1 


Filler. 


WHLEN 


1 


Length . 


96 (60) 


WHWASIZ 




4 


Points to work area subpool 
and size. 



Cross reference 



FC 


MO 


AA 


N/A 


AB 




AC 




BA 
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IOPL — Input/Output Parameter List 

Constructed by: IKJEFE11. 

Used by: IKJPUTL. 

Contents: The address of this list is passed to IKJPUTL in register 
one. 



Disp 
Dec (Hex) 


Field 


Size 
(Bytes) 


Use/Contetns 


(0) 


IOPLUPT 


4 


Pointer to the UPT. 


4 '<IO 


IOPLECT 


4 


Pointer to the ECT. 


8 (8) 


IOPLECB 


4 


Pointer to the ECB. 


12 (C) 


IOPLIOPB 


4 


Pointer to the I/O parameter block. 



Cross reference 



FC 

AA 
AB 
BA 



MO 
N/A 



24 WHEN/END 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



LSD — List Source Descriptor (16 bytes) 

Constructed by: IKJEFE11. 

Updated by: IKJEFE11. 

Used by: IKJEFE11, STACK service routine. 

Contents : 



Disp 
Dec (Hex) 


Field 


Size 
(Bytes) 


Use/ Contents 


(0) 


LSDADATA 


l* 


Points to record to be added to 
input stack. 


a «> 


LSDRCLEN 


2 


Record length, zero if variable 
length RECFM. 


6 (6) 


LSDTOTLN 


2 


Amount of storage to be freed. 


8 (8) 


LSDANEXT 


4 


Points to next record to be processed. 
Initialized to first recors by 
invoker. Updated by GETLINE/GETPUT . 


12 (C) 


LSDRSVRD 


«l 


Reserved. LSD must be doubleword 
multiple. 



Cross reference 



FC 


MO 


AA 


2-1 


AB 
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PDL — Parameter Descriptor List 

Constructed by: IKJPARS. 

Used by: IKJEFE11. 

Contents: IKJPARS puts the address of the PDL into the answer place 
pointed to by PPLANS in the PPL. 



Disp 
Dec (Hex) 


Field 


Size 
(Bytes) 


Use/ Contents 


(0) 


PDECHAIN 


8 


Used to free the PDL. 


8 (8) 


PDERC 


2 


Offset to SYSRC. 


10 (A) 


Unnamed 


2 


Filler for macro expansion. 


12 (C) 


Unnamed 


8 


Filler for relational operation. 


20 (14) 


PDENUM 


4 


Integer to which last command 
processor's return code is compared. 


24 (18) 


PDENUML 


2 


Length of integer. 


26 (1A) 


PDENUMF 


2 


Flags for IKJPARS internal. 



Cross reference FC MO 

AA N/A 
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PPL— PARSE Parameter List 

Constructed by: IKJEFE11. 

Used by: IKJPARS. 

Location: The address of this list is passed to IKJPARS in register 
one. 



Disp 
Dec (Hex) 


Field 


Size 
(Bytes) 


Use/ Contents 


(0) 


PPLUPT 


4 


Points to UPT. 


4 (4) 


PPLECT 


4 


Points to ECT. 


8 (8) 


PPLECB 


4 


Points to ECB. 


12 (C) 


PPLPCL 


4 


Points to PCL. 


16 (10) 


PPLANS 


4 


Points to answer place. 


20 (14) 


PPLCBUF 


4 


Points to command buffer. 


24 (18) 


PPLUWA 


4 


Points to work area. 



Cross reference FC MO 

AA 2-1 
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STPL — Stack Parameter List (16 bytes) 

Constructed by: IKJEFE11. 

Updated by: IKJEFE11. 

Used by: IKJEFE11, STACK service routine. 

Contents: List of addresses. 



Disp 
Dec (Hex) 


Field 


Size 


Use/Contents 


(0) 


STPLUPT 


4 


Points to UPT. 


4 (U) 


STPLECT 


4 


Points to ECT. 


8 (8) 


STPLECB 


4 


Points to command processor's ECB. 


12 (C) 


STPLSTPB 


4 


Points to STACK parameter block. 



Cross reference 



FC 



MO 



AA 
AB 



2-1 
2-2 



2 8 WHEN/END 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Section 6- Diagnostic Aids 



Messages 



This section contains the messages from the WHEN/END Command 
Processor. 



Messages from the WHEN/END Command Processor Contained in IKEFE16, 



Message 
ID 


Message Text 


IKJ56535I 
#IKJ56535I 
#IKJ56535I 


* SYSTEM ERROR+ 
PARSE ERROR CODE ** 
STACK ERROR CODE ** 


IKJ56537I 
#IKJ56537I 

#IKJ56537I 


* COMMAND NOT EXECUTED r NO RETURN CODE+ 
PREVIOUS COMMAND ABENDED WITH USER ABEND 
CODE ** 

PREVIOUS COMMAND ABENDED WITH SYSTEM ABEND 
CODE ** 



Note: indicates a second level message for documentation purposes 
only. 

indicates the command name is inserted at the beginning of 
every first level message. 

** indicates the return code is inserted at the end of every 
second level message. 
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Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/ 3 60 Operating System: Program Logic 
Manual Master Index , Order No. GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 



ABEND 20 

action operand 5 

another command 6 

END 5 

optional 6 
address OF 

CPPL 20 

I/O work area 20 f 21 

PDL 26 
answer place 26,27 
ATTN routine 22 

block 

general parameter 22 
stack parameter 22 
broadcast notices 20 
buffer, for IKJPARS 10 



chain, second level message 20 
command 

buffer 19,20,27 

next 22 

procedure 5 

string 5 
command name 

END 6 

primary 20 

secondary 20 

WHEN 6 
command processing 13,14,15 
command processor 

overview 13 

preview 6 

routines 9 
commands, sequence of TSO 5 
comparison, return code to integer 10 
control module, hierarchy 9 
control module, IKJEFEll 10 
control sections, in directory 17 
CPPL 

data area 20 

in data area directory 17 
CPPLBUF 

field in CPPL 20 
CPPLECT 

field in CPPL 20 
CPPLPSCB 

field in CPPL 20 
CPPLUPT 

field in CPPL 20 
current procedure 7 



data area directory 15 

data areas 16 

data transfer 5 

deletion, marks current procedure for 

5,7,10 
delimiter 22 
diagnostic aids 29 
diagnostic messages 6,29 
diagrams, introduction to 4,5 
directory, routine and data area 17 
doubleword 25 



ECB, pointer to 24,27 
ECT 

data area 20 

in data area directory 17 

pointer to 20,24,27 
ECTATRM 

field in ECT 20 
ECTIOWA 

field in ECT 20 
ECTMSGF 

field in ECT 20 
ECTNMAL 

field in ECT 20 
ECTNNOT 

field in ECT 20 
ECTNCPD 

field in ECT 20 
ECTPCMD 

field in ECT 20 
ECTRCDF 

field in ECT 20 
ECTRTCD 

field in ECT 20 
ECTSCMD 

field in ECT 20 
ECTSMSG 

field in ECT 20 
ECTSWS 

field in ECT 20 
element, input stack 10 
END command processing 7,8,37 
entry points, in directory 17 
environment control table 20 
exits 11 



first level message 29 
flow of logic 8 
flowchart cross-referencing 
flowcharts 13 



general parameter list 22 
GETLINE/GETPUT 25 
GETMAIN size 22 

hierarchy 9 

I/O parameter block 24 



WHEN/END 31 



IKJCPPL 10 

IKJECT 10 

IKJEFE11 6,7,10 

IKJEFE15 6,12 

IKJLSD 10 

IKJPARS service routine 7,10,26,27 

IKJPPL 10 

IKJPUTL 12,24 

IKJRLSA 11 

IKJSTCK 7 

IKJSTPB 10 

IKJSTPL 10 

IKJWHEN 10,11,12,17,22 

input 6 

input stack 7,10,22,25 

Input /Out put parameter list 24 

integer, command operand 5,6,10,26 

IOPL 

data area 24 

in data area directory 17 
IOPLECB 

field in IOPL 24 
IOPLIOPB 

field in IOPL 24 
IOPLUPT 

field in IOPL 24 
IOPOECT 

field in IOPL 24 



length of command 19 

list source descriptor (LSD) 25 

LOAD module 6,17 

logic flow 8 

logical operators, as operands 5 

LSD 

data area 25 

in data area directory 17 
LSDADATA 

field in LSD 25 
LSDANEXT 

field in LSD 25 
LSDECLEN 

field in LSD 25 
LSDRSVRD 

field in LSD 25 
LSDTOTLN 

field in LSD 25 



parameter descriptor list 26 

parameter list, PARSE, released 11 

PARSE descriptor list 22 

PARSE parameter list 27 

PCL, pointer to 27 

PDECHAIN 

field in PDL 26 
PDENUM 

field in PDL 26 
PDENUML 

field in PDE 26 
PDENUMF 

field in PDL 
PDERC 

field in PDL 26 
PDL 

data area 26 

in data area directory 17 
physical characteristics 6 
pointers to 

ECB 24 

ECT 20,24 

IOPL 24 

UPT 20,24 
positional operands 6 
PPL 

data area 27 

in data directory 17 
PPLANS 

field in PPL 27 
PPLCBUF 

field in PPL 27 
PPLECB 

field in PPL 27 
PPLECT 

field in PPL 27 
PPLPCL 

field in PPL 27 
PPLUPT 

field in PPL 27 
PPLUWA 

field in PPL 27 
primary command name 20 
procedure, current 5 
processor, functions 6 
program organization 9 
prompting messages 6 
protection key 6 
PSCB, pointer to 20 
PTPB, pointer to 12 



messages 6,7 

module description 12 

module flow chart 16 

text 29 
method of operation 7 

method of operation diagrams 7,8,35 



offset 

field in command buffer 19 

for message module 22 

to SYSRC 26 
operands, logical operators as 5 
operators, logical, as operands 5 
operational considerations 6 
output 6 



RECFM, in list source descriptor 25 
record length, in list source descriptor 

25 
register usage by 

IKJEFE11 11 

IKJEFE15 12 
relational operation, filler for 26 
return code, in second level messages 29 
return code, previous command 5,6,7,10 

in PDL 26 
routine directory 17 
routine names 17 



second level message 20 
secondary command name 20 
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secondary message index 22 

service routine return code, pointer to 22 

STACK 

input 7 

parameter list 22 

service routine 25 
status byte, in IKJWHEN 22 
steps, major implementation 8 
storage requirements 6 
STPL 

data area 27 

in data area directory 17 
STPLECB 

field in STPL 27 
STPLECT 

field in STPL 27 
STPLSTPB 

field in STPL 27 
STPLUPT 

field in STPL 27 
subpool, ECT in 20 
subpool number, in IKJWHEN 22 
summary, command processing 7 
switches 2 
symbols 8 
syntax 7,10 
SYSRC 6,26 
system ABEND 20 



terminal 5 

terminal monitor program (TMP) 6 

terminate 5 

TMP 6,7,10 

data areas built by 19,20 



UPT, pointers to 20,24,27 
user ABEND 20 



validity checks 10 
variable length, in LSD 25 



WHATTECB 

field in IKJWHEN 22 
WHCHAR 

field in IKJWHEN 22 
WHCMD 

field in IKJWHEN 22 
WHCOMM 

field in IKJWHEN 22 
WHEN command 

control module 10 

introduction 5 

processing diagrams 35,37 

processing summary 7 
WHENWAS 

field in IKJWHEN 22 
WHFILL 

field in IKJWHEN 22 
WHGETM 

field in IKJWHEN 22 
WHLEN 

field in IKJWHEN 22 
WHMSG1 

field in IKJWHEN 22 
WHMSG2 

field in IKJWHEN 22 
WHPARMS 

field in IKJWHEN 22 
WHPBLOCK 

field in IKJWHEN 22 
WHPL 

field in IKJWHEN 22 
WHRCODE 

field in IKJWHEN 22 
WHSUBP 

field in IKJWHEN 22 
WHSWI 

field in IKJWHEN 22 
WHWASIZ 

field in IKJWHEN 22 
work area, general (IKJWHEN) 
work area subpool 22 



22 
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Inputs 



Command Buffer 



WHEN Command 



From TMP 
or Terminal 



CCPL 



ECT 



Return Code 



ECTRTCD 



Processing WHEN (action operand included) 




IP1 
rV 



1 Test for abend code. 

fc Syntax scan. 

O Check relational operator. 



*r Compare relational operand (integer) 
with ECTRTCD. 



O Condition met ? Yes ... 

Fill in STPL to provide STPB and 
LSD. Pass control to stack. 



6 



Return from stack 



f Place action on top of 
input stack. 



8 Return to caller. 



STPL 




STPB 



| LSD 



LSD 





Stack Service Routine 
IKJSTCK 



Mark the top 
entry of the 
input stack 
for deletion. 



• Return control. 



^r 



Input Stack 



Note: The GETLINE subroutine subsequently 
deletes the entry. 



Description 



Routine 



Label 



FC 



Description 



Routine 



Label 



FC 



1 The PARSE Parameter List is initialized. 

Test for previous Command Processor abend. If previous Command Processor abend, 
issue message and return. If not, continue processing. 

2 Control then goes to the PARSE subroutine, which checks the syntax of the 
WHEN command. 

3 When the PARSE routine returns control to IKJEFE1 1 , it provides a zero return code 
to indicate successful operation. (Non-zero causes a diagnostic message to be 
generated, and control is returned to the caller.) 

*r A validity check of the WHEN relational operator is made. Compares relational 
operand . 

5 If the condition is not met, control is returned to the caller. (The return code in 
the ECT is placed in register 15.) If the condition is met, the Stack Parameter List 
(STPL) is updated with the address of the Stack Parameter Block (STPB). 

6 The STPL is used by the Stack Service Routine to mark the top entry of the input 
stack for deletion. 


IKJEFE11 




AB 


IKJPARS 




AC 


IKJEFE11 




AC 


IKJSTCK 




AB 



7 If a return code of zero (successful operation) is passed from the stack routine, the 
WHEN action operand (if one is coded) is placed on top of the input stack. 

(If a non-zero return code is provided, the WHEN processor is terminated.) 

The Parse Parameter Descriptor List (PDL) is freed. (This list is set up by the parse 

subroutine. 1KJEFE11 locates the PDL through the ANSWER place field of the PCL.) 

8 Control returns to the caller. (If WHEN was entered from a terminal, control is 
returned there upon termination of the command or command procedure specified 
in the action operand.) 


IKJEFE11 




AC 


IKJEFE15 




BA 


IKJEFE11 




AC 
BA 



Diagram 2-1. WHEN/END Command Processing — WHEN Command 
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Inputs 



Command Buffer 



END Command 



CPPL 



,ECT 



Return Code 



ECTRTCD 



Description 



From 

TMPor 

Terminal 



Processing END Command 



y 



1 Fill in STPLto make STPB 
available to stack service 
routine. 



to Stack routine 



2 R. 



eturn. 



Routine 



^> 



STPL 



f STPB 



STPB 



from Stack routine 



Label FC 



1 The general parameter list is initialized for the STACK service routine 
(to mark the top entry of the input stack for deletion). 

Z Control returns to the caller. 


IKJEFEll 


IKJEFCll 


AB 


IKJEFE15 




BA 


IKJEFEll 




AB 



Stack service routine 
IKJSTCK 



=> 



• Marks the top entry 
of the input stack 
for deletion . 



• Returns 



Input stack 




Diagram 2-2. WHEN/END Command Processing -- END Command 
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Indexes 


Revised indexes are provided for 
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attention exit routines Intro/10-11 
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Intro/ 10 
ATTN key 

as control character 9,13,47 

bit settings for 15 



backspace key 9,13,47 
BSATTN buffer 35 
buffer 

BSATTN 35 

CODE 35 

command (see command buffer) 

ERRCODE 35 

INVPARM 35 

message 35 

MSGS 35 



CHAR operand 

checking validity of 13,45,47 

data area used for checking 25 

description of 9,13 

field in PDL for 27 
character delete control character (see 

CHAR operand) 
CHARCHEK routine 

function of 13,45 

input to 25 

operation of 47 

register usage by 34 
CHARPDE 25, 47 
charts (see flowcharts) 
CODE buffer 35 
codes (see return codes) 
command buffer 

containing operands 7,43 

pointer to 8, 28 
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COMMAND IGNORED message 

in message list 35 

when issued 7,11,45 



command processor parameter list (CPPL) 

description of 8,43 
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use of 11,18 
Command Scan Intro /10 
control section (CSECT) names 23 
CPPL (see command processor parameter list) 
CSECT names 23 



DAIR (Dynamic Allocation Interface 

Routine) Intro^lO 
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descriptions of 25-31 
24 
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directory of 
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diagnostic aids 
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register summary 33-34 
diagrams, method of operation 43-47 
directory 
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routine 23 
DSECT Of PDL 11,27,45 
Dynamic Allocation Interface Routine 

(DAIR) Intro/ 10 
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IKJEFT82 

as CSECT, entry point, and module name 
8 

data areas defined by 18 

data areas used by 18,43 

data passed to PUTMSGS by 14 

exits 18,43 

flowchart of 20-21 

input to 43 

method of operation 43 

output of 43 

overview of functions 7,18 

passing of control to PARSE by 7,18 

receiving of control by 8,43 

register usage of 18,33-34 

residence of 8 

size of 8 

subroutines of 13,23,47 
IKJNAME macro 12 
IKJPARS (see PARSE) 
IKJPTGT 23 

IKJPUTL (see PUTLINE service routine) 
IKJRLSA macro 8, 12, 43 
INVPARM buffer 35 
INVPARM message 11, 43 



keyword operands (see operands; options) 



line delete control character (see LINE 

operand) 
LINE operand 

bit settings for 15 

checking validity of 13,45,47 

data area used for checking 25 

description of 9,13 

fields in PDL for 27 
LINECHEK routine 

function of 13,45 

input to 25 

operation of 47 

register usage by 34 
LINK macro 7,8,43 
load module names 23 
LOGON/LOGOFF scheduler Intro/ 9 



macro instructions 

EXTRACT Intro/ 9 

IKJNAME 12 

IKJRLSA 8,12,43 

LINK 7,8,43 

PUTLINE 

generation of LINK macro by 8 
issued by IKJEFT82 11,43 
issued by PARSE 45 

STCC 43 
main storage 

dynamically acquired 8,12,18 

message list residing in 35 

released via FREEMAIN macro 12,43 

required to load PROFILE 8 
message segment list (SEGLIST) 

description of fields 30 

illustration of 14 

pointer to 14,19 



messages 

buffers 35 

COMMAND IGNORED 

in message list 35 
when issued 7,11,45 

handling of Intro/13 

list 35 

overlay CSECT (PROFMSGS) 23,35 

segment list (see message segment list) 
method of operation 

description 13-15 

diagrams 43-47 
MSGS buffer 35 

operands 

bit settings in UPT for 15 
buffer which contains (see command 

buffer) 
CHAR 

checking validity of 13,45,47 
data area used for checking 25 
description of 9,13 
default 15 
fields in PDL 27 
LINE 

checking validity of 13,45,47 
data area used for checking 25 
description of 9,13 
list of 9 
overriding of 7 
putting in effect 11-12,15 
validation of 7,11-12,45 
operation, method of 
description 13-15 
diagrams 43-47 
options of PROFILE command 
(see also operands) 
default 15 
definition of 9 
fields in PDL 27 
specification of 7 
organization, program 17-22 
overlay 

CSECT of message list 35 
of PDL 13 
overriding PROFILE command 7 



parameter control entry (PCE) 12 
parameter control list (PCD 

building of 7 

conceptual illustration of 45 

dynamic storage used for 7,8 

parameter control entries 12 

use of 12,45 
parameter descriptor element (PDE) 25,34 
parameter descriptor list (PDL) 

built by PARSE 11 

freeing of storage 12 

if empty 43 

illustration of 45 

mapping of 27 

options recorded in 11 

PDEP DSECT 

description of 27 
illustration of 45 
pointer to 45 
use of 11,13 
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PARSE (IKJPARS) 

building of PDL by 11-12,45 

creation of CHARPDE by 25,47 

data areas created by 25,27 

data areas used by 45 

definition of Intro/10 

error code 7, 35 

exits 11 , 13,45 

functions performed for IKJEFT82 
description of 12-13,45 
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TIME command processor Intro/9 
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add a data set password entry 47 
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pointer to in PPL 29 
attention exit routines 

Terminal Monitor Program 
(TMP) Intro/10-11 
attention interruption 
processing Intro/ 10 
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binary access counter 32 
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CATALOG data set disposition 21 

CATALOG routine return code in DAPB18 20 
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IKJEHPWP 
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DFPL 24 
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IKJPARMD 25-26 
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data set 

disposition flags 21 

password entry 47 
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list 24 
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Dynamic Allocation Interface Routine (DAIR) 
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Dynamic Allocation Parameter List (DAPL) 

definition 22 

in data area directory 18 
dynamic allocation return code 
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STOP/MODIFY Intro/9 
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Intro/9 



flowcharts 14-15 
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GETLINE service routine 
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IKJEHDEF, (DEFAULT service routine) 
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IKJEHPRO 

flowcharts 14-15 
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IKJPARMD (IKJPARS descriptor list) 

description 25-26 
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IKJPARS control list 
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IKJPARS, (PARSE service routine) 

definition Intro/10 

in flowchart 14 
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IKJPUTL, (PUTLINE service routine) 

in flowcharts 14 
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in method of operation diagrams 
IKJPWPRM (IKJPARS descriptor list) 

description 27 
Input Output Parameter List (IOPL) 
input to PROTECT command processor 
interruption, attention Intro/ 10 
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introduction to the method of operation 
diagrams 8 
I/O service routine parameter block 

pointer to in IOPL 28 
IOPARM 

reference point to IOPL 28 
ISSUESVC label 14,15,45 
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11 

45 
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JOBNAME 

in DAPB18 
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KEEP data set disposition 
keywords (see parameters) 
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list a data set password entry 

LOCATE return code in DFPB 23 

logon time 30 

LOGON/LOGOFF scheduler Intro/9 

LSTOLDPW field name in IKJPARMD 26,45 



Intro/ 13 
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contained in DAPB18 

length of 25 
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handling 

IDs 36-37 

list of 36-37 
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method of operation 

diagrams 45-47 
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NOPWREAD keyword 
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operation 
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organization of method of operation 
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overview of PROTECT command processing 



45 



40 PROTECT 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Page of GY28-6776-0, Revised June 1, 1971, By: TNL GN28-2492 



parameter 

block 23 

list 19, 20 f 22, 24 
for SVC 98 7,45 

register 35 
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pointer to in IKJPARMD 25 

pointer to new 33 
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PPL (IKJPARS parameter list) 

description 29 
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PR0DSN field in IKJPARMD 25,45 
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PROMPT 15 
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considerations 6 

definition 5 

functions 5,45 

module size 5 

operating environment 5 

purpose of 7 
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processing 47 

return codes 7 
Protected Step Control Block (PSCB) 

description 30-31 
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pointer to in DAPB18 19 

pointer to in DAPL 22 

pointer to in DFPB 23 
protection code 

pointer to in SVCPARMS 33 
protection mode indicator 32 
PROTYPE field in IKJPARMD 
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function 45 
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PUTGET service routine 

definition Intro/10 
PUTLINE service routine 
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PWDS - Password Data Set 

description 32 

maintaining 47 
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RDTYPE field in IKJPARMD 
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diagnostic aid 35 

IKJEHPRO 12 
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register summary 35 
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RELOGON buffer 

pointer to in PSCB 31 
replace a data set password entry 47 
REPNEWPW field name in IKJPARMD 26,45 
REPOLDPW field name in IKJPARMD 26,45 
return codes 

CATALOG 20 

dynamic allocation 20 

SVC 98 7 
routine directory 17 



service routines Intro/10 
STACK service routine 

definition Intro/10 
STAX service routine 

issued by TMP Intro/10-11 
STOP/MODIFY ECB Intro/9 
storage 

chains, IKJPARS 25 

estimates 5 

requirements 5 
STRDATA field name in IKJPARMD 26,45 
string 

length 33 

pointer to in IKJPWPRM 27 

pointer to in SVCPARMS 33 
SVC 98, protect SVC 

entry code 33 

in flow chart 14,15 

parameter list contents 45 

return codes 7 
SVCPARMS - SVC parameter list 

description of 33,45 

in data directory 18 
SVCRCTAB label 45 

symbols, method of operations diagrams 9 
syntax check command name 45 
SYSOUT 

class 20 

data set 20 



Terminal Monitor Program (TMP) 

attention exit routine Intro/10-11 

definition Intro/9 

functions performed by Intro/9 

STAX macro instruction issued 
by Intro/10-11 
termination Intro/12-13, 45 
TEST command processor Intro/9 
time 

CPU 30 

resident 30 

total CPU 31 
TIME command processor Intro/9 
TMP (see terminal monitor program) 



UNCATALOG data set disposition 21 
update DSCB 47 
UPT (see user profile table) 
user attributes 30 
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pointer to in DAPL 22 
pointer to in DFPL 24 
pointer to in IOPL 28 
pointer to in PPL 29 
pointer to in PSCB 31 
user requests 

(ADD, REPLACE, DELETE, LIST) 

action taken 7 

in flowcharts 14-15 

in IKJPARMD 25 
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user work area 

pointer to in PPL 29 
userid 

in DAPB18 21 

in PSCB 30 



volume list 

pointer to in SVCPARMS 33 
VTOC (Volume Table of Contents) 

WRITE keyword 26 

WRTYPE field in IKJPARMD 26,45 
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Input 



PROTECT Command Processing 



Result 



Reg 1 



bCPPL 



From 
TMP 



.Command Buffer 



PROTECT 



Standard TMP Interface 



Description 


Routine 


Label 


FC 


1 


A GETMAIN is issued to request storage. If sufficient storage is not available, the 
program is abnormally terminated. Then general parameters for IKJPARS, IKJDAIR, 
IKJEHDEF (used if it is necessary to fully qualify the data set name), and IKJPUTL 
are initialized. 


lKJEHPRO 


lKJEHPRO 


AA 


2 


Then the command is scanned and checked for correct syntax by the IKJPARS routine. 
IKJPARS places the address of the PDL (see A) in the answer place provided by 
lKJEHPRO. The PROTECT command processor uses this information to form a 
parameter list for the SVC 98 (PROTECT SVC) modules. 








3 
4 


After checking the IKJPARS return code the control password, if one was specified, 

is moved to the buffer. 

Then, if the data set name was not fully qualified, it is fujly qualified using IKJEHDEF. 

Next the function to be performed, found in PROTYPE, is checked and the parameter 
list for SVC 98 is filled in accordingly. The first byte of the parameter list contains a 
hexadecimal value indicating the function, as follows: 








QUALDSN 


CHECKFCN 




X'Ol ' ADD an entry to the password data set ( PWDS ). 










X'02 1 REPLACE an entry in the password data set. 










X"03' DELETE an entry from the PWDS. 








5 
6 


X'04 1 LIST protection, security counter, and optional data information 
of a protected data set. (The last 80 bytes of the PWDS entry for 
this data set password is placed in the 80 byte buffer pointed to 
by the SVC parameter list.) 

Una 1 locates the data set. 

Issue SVC 98 (see Diagram 2-2.) 






AA 
AB 


ISSUESVC 


SVC98 




IGC0009H module 


Upon return from SVC 98, control is passed to the appropriate message processing 
and/or clean up locations, according to the return code provided by SVC 98. 


lKJEHPRO 


SVCRCTAB 





X'Ol 

4 
8 
12 
16 
20 

X'02 

4 
8 
12 
16 
20 
24 



"S 

y 



I Initialize , 



2 Scan and syntax check. 



5 



I 



Parse 



From Step 5 



Standard 

parameter 

list 



PDL 



J 



J L 



3 Process dsname information. 



4 Check function — 
Fill in SVC 
Parameter list 
Una I locate data set. 



5 Issue SVC 98 



6 Check Return code. 
Process accordingly. 



1 



SVC parm 
list. 



See i 



SVC 98 



TV 



for PDL 



(IKJPARMD) format 



ADD, REPLACE, DELETE or LIST 
information m~ 



See 



B 



/ 



S 



X 



IKJPARMD 



Note: for the logic behind the SVC 98, see 
Figure 2-2. For the actual module 
specifications, refer to the 
IBM System/360 Operating 

System Direct Access 

Device Space Management (DADSM), 

Form GY28-6607. 

PROTYPE 

1 = ADD function 

2 = REPLACE function 

3 = DELETE function 

4 = LIST function 

RDTYPE 

= Neither is specified 

1 = PWREAD is specified 

2 = NOPWREAD is specified 



PRODSN 



Return from 
SVC 98 
processing. 



PROTYPE 
WRTYPE 



4 data set name 



dsname length ds flags 



4 member name 



length 



flags 



4 password 



length 



flags 



D SVC parameter list. — The format of this list 
varies, according to the function detected. 



RDTYPE 



DATATYPE - 



01 


00 00 00 


dslength 


\ dsname 


Prot code 


4 New password 


00 


4 Control password 


String length 


♦ String 


Num of Vols 


4 Volume list 


1 byte 


3 bytes 


02 


00 00 00 


dslength 


4 dsname 


00 


4 Current password 


Prot code 


4 New password 


00 


4 Control password 


String length 


4 String 


Num of Vols 


4 Volume list 



X'03 



4 

8 
12 
16 



X , 04' 



03 


00 00 00 


dslength 


4 dsname 


00 


4 Current password 


00 


4 Control password 


Num of Vols 


4 Volume list 



04 


4 Buffer (80 byte) 


dslength 


4 dsname 


00 


4 Current password 



WRTYPE 

= Neither is specified 

1 = PWWRITE is specified 

2 = NOWRITE is specified 

DATATYPE 

= DATA not specified 

1 = DATA is specified 

IKJPARS provides an additional 
double word area for each 
password or data field 
specified. The format is: 



4 password string 



string length 



flags 



Applicable names are : 

ADDNEWPW 

REPOLDPW 

REPNEWPW 

DELOLDPW 

LSTOLDPW 

STRDATA 



Diagram 2-1. PROTECT Command Processing 



PROTECT 45 
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processing Intro/ 10 

BLDL 47,5 

blocks, control (see data area directory) 
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catalog information routine (IKJEHCIR) 
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module description 12 
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format 21 
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CLOSEPDS branch point 18 
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flowchart 16 

format 22 

M.O. diagram 49 



command processor parameter list (CPPL) 

flowchart 16 
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M.O. diagram 49 

use by IKJEHREN 15 
Command scan definition Intro/10 
command syntax 
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flowchart 16 

M.O. diagram 47 

module description 13 
descriptions 

functional 5 

of operation 9 
diagnostic messages (see messages 

diagnostic) 
DFPB (see default parameter block) 
DFPL 
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ECB (see event control block) 

ECT (see environment control table) 

entry point 

19 



44 



directory 


Of 
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IKJEHRN2 
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operation 
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definition Intro/10 
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flowchart 16 

format 35 

M.O. diagram 47-49 
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summary of 9 
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on sequential data set 6 
method of operations diagrams 47 
operation 

on partitioned data set (PDS) 9 
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user id prefixed to data set name 

VOLIDPTR 49 

WRK1AREA 49 
W0RK1PTR 49 
W0RK2PTR 49 



13 



(Page 46.1 Deleted) 
46 RENAME 



TSO Command Processor PLM - Vol. 6 (Release 20.1) 



Page of GY28-6776-0, Revised June 1, 1971, By: TNL GN28-2492 



Index 



Indexes to program logic manuals are 
consolidated in the publication IBM 
System/360 Operating System: Program Logic 
Manual Master Index ,, Order No. GY28-6717. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 

Note : Page numbers of the form "Intro/5" 
refer to pages in the "General Information" 
section of this publication. 



ABEND processing Intro/12-13 

abnormal termination (ABEND) Intro/12-13 

address of RUNPDL, PDLADDR 27 

ADECB, subfield in WORKAREA 29 

ADECT, subfield in WORKAREA 29 

ADST0R, pointer to INSRCDES 24 
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CALCORE label 

in flowchart 13 
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conventions, symbols 8 
CPPL (see Command Processor Parameter List) 
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MBRPTR, field in DSNPDE 23 
member name 
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BDAM 55 
broadcast data set 13,49,55 
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PARMKEY 

field in SDIOPARM 38 

in operation 55 
PARMLMCT 

field in IOPARML 36 

field in SDIOPARM 38 
PARMRBA 

field in SDIOPARM 38 

operation 55 

used in IEEVSDIO 11 
PARSE (IKJPARS) 

definition Intro/10 

operation 51 

used in IKJEESll 17 
PCL (parse control list) 

in IKJEESll 17 

in operation 51 
PDE (parameter descriptor element) 39,53 
PDL (SENDPDL) 

description 39 

operation 49-55 
PDLxxx fields in SENDPDL 39 
PDLPTR, in COMMON 34 
PPL (PARSE parameter list) 

description 37 

use 51 
preface Intro/3-5 
prerequisite publications Intro/5 
program organization 11 
protected step control block 

(PSCB) Intro/9 
PTPB 57 
publications 

prerequisite Intro/5 

related Intro/5-6 
putline Intro/10,57 
PUTGET service routine 

definition Intro/10 
PIOPEN, in SDIOPARM 38 
P1READ, in SDIOPARM 38 
P2CLOSE, in SDIOPARM 38 
P2DEL, in SDIOPARM 38 



46 SEND 



TSO Command Processor PLM - Vol. 6 (Release 20- 1) 



Page of GY28-6776-0, Revised June 1, 1971, By: TNL GN28-2492 



P2JFCB, in SDIOPARM 38 
P2WRDAF, in SDIOPARM 38 



RBA (relative block address) 

in IEEVSDIO 13 

in operation 55 
register summary 41 
register usages 41 
related publications Intro/5-6 
relative block address (RBA) 

in IEEVSDIO 11 

in operation 55 
return codes 

DAIR 57 

IEEVSDIO 57 

IKJPUTL 57 

PARSE 57 

TPUT 57 
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character string 6 
charts 

control module hierarchy 11 

flowcharts 13-14 
CLEAR keyword parameter 7,27 
command buffer 

in method of operation diagram 27 

pointer to in CPPL 17 

pointer to in PPL 19 
Command Processor Parameter List (CPPL) 

format of 17 

in data area directory 15 

in method of operation diagram 27 
command scan service routine 

definition Intro/10 
contents, table of 3 
control blocks (see data areas) 
control module hierarchy chart 11 
CPPL (see Command Processor Parameter List) 

data area directory 15 
data areas 

CPPL 17 

PDL 18-19 

PPL 19 

used by IKJEFT80 12 
diagnostic aids 

messages 22 

register summary 21 
diagrams, method of operation 27 
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